r53984 - in /trunk/libdevel-repl-perl: ./ debian/ debian/source/ lib/Devel/ lib/Devel/REPL/ lib/Devel/REPL/Meta/ lib/Devel/REPL/Plugin/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Mar 9 14:28:14 UTC 2010
Author: jawnsy-guest
Date: Tue Mar 9 14:28:07 2010
New Revision: 53984
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53984
Log:
* New upstream release
* Standards-Version 3.8.4 (no changes)
* Drop unnecessary version dependencies satisfied in oldstable
* Rewrite control description
* Use new 3.0 (quilt) source format
Added:
trunk/libdevel-repl-perl/debian/source/
trunk/libdevel-repl-perl/debian/source/format
trunk/libdevel-repl-perl/lib/Devel/REPL/Overview.pod
- copied unchanged from r53979, branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Overview.pod
trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/DDC.pm
- copied unchanged from r53979, branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/DDC.pm
Removed:
trunk/libdevel-repl-perl/debian/README.source
Modified:
trunk/libdevel-repl-perl/Changes
trunk/libdevel-repl-perl/MANIFEST
trunk/libdevel-repl-perl/META.yml
trunk/libdevel-repl-perl/Makefile.PL
trunk/libdevel-repl-perl/debian/changelog
trunk/libdevel-repl-perl/debian/control
trunk/libdevel-repl-perl/debian/rules
trunk/libdevel-repl-perl/lib/Devel/REPL.pm
trunk/libdevel-repl-perl/lib/Devel/REPL/Meta/Plugin.pm
trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/DDS.pm
trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Interrupt.pm
trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/LexEnv.pm
trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/ReadLineHistory.pm
trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Timing.pm
Modified: trunk/libdevel-repl-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/Changes?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/Changes (original)
+++ trunk/libdevel-repl-perl/Changes Tue Mar 9 14:28:07 2010
@@ -1,3 +1,7 @@
+1.3.9
+ - Fix scary Moose 0.98 box, adding a check for ->isa('Devel::REPL') in Meta/Plugin.pm
+1.3.8
+ - resolve rt.cpan#44231 SIGINT does not quit the REPL just kills the line being edited
1.3.7
- resolve rt.cpan#44919 fix deprecated use of compute_all_applicable_methods
1.3.6
Modified: trunk/libdevel-repl-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/MANIFEST?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/MANIFEST (original)
+++ trunk/libdevel-repl-perl/MANIFEST Tue Mar 9 14:28:07 2010
@@ -15,6 +15,7 @@
lib/Devel/REPL.pm
lib/Devel/REPL/Error.pm
lib/Devel/REPL/Meta/Plugin.pm
+lib/Devel/REPL/Overview.pod
lib/Devel/REPL/Plugin.pm
lib/Devel/REPL/Plugin/B/Concise.pm
lib/Devel/REPL/Plugin/Colors.pm
@@ -26,6 +27,7 @@
lib/Devel/REPL/Plugin/CompletionDriver/LexEnv.pm
lib/Devel/REPL/Plugin/CompletionDriver/Methods.pm
lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
+lib/Devel/REPL/Plugin/DDC.pm
lib/Devel/REPL/Plugin/DDS.pm
lib/Devel/REPL/Plugin/DumpHistory.pm
lib/Devel/REPL/Plugin/FancyPrompt.pm
Modified: trunk/libdevel-repl-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/META.yml?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/META.yml (original)
+++ trunk/libdevel-repl-perl/META.yml Tue Mar 9 14:28:07 2010
@@ -35,4 +35,4 @@
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
-version: 1.003007
+version: 1.003009
Modified: trunk/libdevel-repl-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/Makefile.PL?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/Makefile.PL (original)
+++ trunk/libdevel-repl-perl/Makefile.PL Tue Mar 9 14:28:07 2010
@@ -32,9 +32,17 @@
-default => 1,
'Data::Dump::Streamer' => 0;
+feature 'DDC plugin - even better format results with Data::Dumper::Concise',
+ -default => 1,
+ 'Data::Dumper::Concise' => 0;
+
feature 'INC completion driver - tab complete module names in use and require',
-default => 0,
'File::Next' => 0;
+
+feature 'Interrupt plugin - traps SIGINT to kill long-running lines',
+ -default => 1,
+ 'Sys::SigAction' => 0;
feature 'Keywords completion driver - tab complete Perl keywords and operators',
-default => 0,
Modified: trunk/libdevel-repl-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/debian/changelog?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/debian/changelog (original)
+++ trunk/libdevel-repl-perl/debian/changelog Tue Mar 9 14:28:07 2010
@@ -1,12 +1,17 @@
-libdevel-repl-perl (1.003007-2) UNRELEASED; urgency=low
+libdevel-repl-perl (1.003009-1) UNRELEASED; urgency=low
[ Jonathan Yu ]
+ * New upstream release
* Removed Alexis Sukrieh from Uploaders (Closes: #536159)
+ * Standards-Version 3.8.4 (no changes)
+ * Drop unnecessary version dependencies satisfied in oldstable
+ * Rewrite control description
+ * Use new 3.0 (quilt) source format
[ Ryan Niebur ]
* Update ryan52's email address
- -- Ryan Niebur <ryan at debian.org> Fri, 25 Sep 2009 00:24:39 -0700
+ -- Jonathan Yu <jawnsy at cpan.org> Tue, 09 Mar 2010 09:44:32 -0500
libdevel-repl-perl (1.003007-1) unstable; urgency=low
Modified: trunk/libdevel-repl-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/debian/control?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/debian/control (original)
+++ trunk/libdevel-repl-perl/debian/control Tue Mar 9 14:28:07 2010
@@ -1,19 +1,18 @@
Source: libdevel-repl-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.2.13), quilt (>= 0.46-7)
-Build-Depends-Indep: perl (>= 5.8.8-7), libdata-dump-streamer-perl,
+Build-Depends: debhelper (>= 7.2.13)
+Build-Depends-Indep: perl, libdata-dump-streamer-perl,
liblexical-persistence-perl, libmoosex-getopt-perl (>= 0.18),
libmoosex-object-pluggable-perl (>= 0.0009), libnamespace-clean-perl,
libmoose-perl (>= 0.74), libfile-homedir-perl, libscope-guard-perl,
libtask-weaken-perl, libb-keywords-perl, libppi-perl, libmodule-refresh-perl,
- libfile-next-perl, libapp-nopaste-perl, libmoosex-attributehelpers-perl (>= 0.16)
+ libfile-next-perl, libapp-nopaste-perl, libmoosex-attributehelpers-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Alexis Sukrieh <sukria at debian.org>, Niko Tyni <ntyni at debian.org>,
- Damyan Ivanov <dmn at debian.org>,
- gregor herrmann <gregoa at debian.org>,
+Uploaders: Jonathan Yu <jawnsy at cpan.org>, Niko Tyni <ntyni at debian.org>,
+ Damyan Ivanov <dmn at debian.org>, gregor herrmann <gregoa at debian.org>,
Ryan Niebur <ryan at debian.org>
-Standards-Version: 3.8.2
+Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/Devel-REPL/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdevel-repl-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdevel-repl-perl/
@@ -26,13 +25,12 @@
libmoose-perl (>= 0.74), libfile-homedir-perl, libscope-guard-perl,
libtask-weaken-perl, libb-keywords-perl, libppi-perl, ${perl:Depends},
libmodule-refresh-perl, libfile-next-perl, libapp-nopaste-perl,
- libmoosex-attributehelpers-perl (>= 0.16)
+ libmoosex-attributehelpers-perl
Recommends: libterm-readline-gnu-perl
-Description: Perl module for building a modern Perl interactive shell
- Devel::REPL is a Moose-based and very flexible module to create
- Read-Evaluate-Print-Loops (REPL) in Perl. The shell provides for rapid
- development or testing of code without the need to create a temporary source
- code file.
+Description: module for building a modern Perl interactive shell
+ Devel::REPL is a module for creating Read-Evaluate-Print-Loops (REPL) in
+ Perl. The shell provides for rapid development or testing of code without the
+ need to create a temporary source code file.
.
Through a plugin system, many features are available on demand. You can also
tailor the environment through the use of profiles and run control files, for
Modified: trunk/libdevel-repl-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/debian/rules?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/debian/rules (original)
+++ trunk/libdevel-repl-perl/debian/rules Tue Mar 9 14:28:07 2010
@@ -1,3 +1,4 @@
#!/usr/bin/make -f
+
%:
- dh --with quilt $@
+ dh $@
Added: trunk/libdevel-repl-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/debian/source/format?rev=53984&op=file
==============================================================================
--- trunk/libdevel-repl-perl/debian/source/format (added)
+++ trunk/libdevel-repl-perl/debian/source/format Tue Mar 9 14:28:07 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libdevel-repl-perl/lib/Devel/REPL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/lib/Devel/REPL.pm?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/lib/Devel/REPL.pm (original)
+++ trunk/libdevel-repl-perl/lib/Devel/REPL.pm Tue Mar 9 14:28:07 2010
@@ -5,7 +5,7 @@
use namespace::clean -except => [ 'meta' ];
use 5.008001; # backwards compat, doesn't warn like 5.8.1
-our $VERSION = '1.003007'; # 1.3.7
+our $VERSION = '1.003009'; # 1.3.9
with 'MooseX::Object::Pluggable';
@@ -406,6 +406,10 @@
=item Andrew Moore - C<< <amoore at cpan.org> >>
+=item Norbert Buchmuller C<< <norbi at nix.hu> >>
+
+=item Dave Houston C<< <dhouston at cpan.org> >>
+
=back
=head1 LICENSE
Modified: trunk/libdevel-repl-perl/lib/Devel/REPL/Meta/Plugin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/lib/Devel/REPL/Meta/Plugin.pm?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/lib/Devel/REPL/Meta/Plugin.pm (original)
+++ trunk/libdevel-repl-perl/lib/Devel/REPL/Meta/Plugin.pm Tue Mar 9 14:28:07 2010
@@ -6,6 +6,7 @@
before 'apply' => sub {
my ($self, $other) = @_;
+ return unless $other->isa('Devel::REPL');
if (my $pre = $self->get_method('BEFORE_PLUGIN')) {
$pre->body->($other, $self);
}
@@ -13,6 +14,7 @@
after 'apply' => sub {
my ($self, $other) = @_;
+ return unless $other->isa('Devel::REPL');
if (my $pre = $self->get_method('AFTER_PLUGIN')) {
$pre->body->($other, $self);
}
Modified: trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/DDS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/DDS.pm?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/DDS.pm (original)
+++ trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/DDS.pm Tue Mar 9 14:28:07 2010
@@ -31,5 +31,23 @@
Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
+=head1 SYNOPSIS
+
+ # in your re.pl file:
+ use Devel::REPL;
+ my $repl = Devel::REPL->new;
+ $repl->load_plugin('DDS');
+ $repl->run;
+
+ # after you run re.pl:
+ $ map $_*2, ( 1,2,3 )
+ $ARRAY1 = [
+ 2,
+ 4,
+ 6
+ ];
+
+ $
+
=cut
Modified: trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Interrupt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Interrupt.pm?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Interrupt.pm (original)
+++ trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Interrupt.pm Tue Mar 9 14:28:07 2010
@@ -1,17 +1,44 @@
package Devel::REPL::Plugin::Interrupt;
use Devel::REPL::Plugin;
+use Sys::SigAction qw(set_sig_handler);
use namespace::clean -except => [ 'meta' ];
-around 'eval' => sub {
- my $orig = shift;
- my ($self, $line) = @_;
+around 'run' => sub {
+ my ($orig, $self) = (shift, shift);
- local $SIG{INT} = sub {
+ local $SIG{INT} = 'IGNORE';
+
+ return $self->$orig(@_);
+};
+
+around 'run_once' => sub {
+ my ($orig, $self) = (shift, shift);
+
+ # We have to use Sys::SigAction: Perl 5.8+ has safe signal handling by
+ # default, and Term::ReadLine::Gnu restarts the interrupted system calls.
+ # The result is that the signal handler is not fired until you hit Enter.
+ my $sig_action = set_sig_handler INT => sub {
die "Interrupted.\n";
};
- return $self->$orig($line);
+ return $self->$orig(@_);
+};
+
+around 'read' => sub {
+ my ($orig, $self) = (shift, shift);
+
+ # here SIGINT is caught and only kills the line being edited
+ while (1) {
+ my $line = eval { $self->$orig(@_) };
+ return $line unless $@;
+
+ die unless $@ =~ /^Interrupted\./;
+
+ # (Term::ReadLine::Gnu kills the line by default, but needs a LF -
+ # maybe I missed something?)
+ print "\n";
+ }
};
1;
@@ -22,9 +49,15 @@
Devel::REPL::Plugin::Interrupt - traps SIGINT to kill long-running lines
+=head1 DESCRIPTION
+
+By default L<Devel::REPL> exits on SIGINT (usually Ctrl-C). If you load this
+module, SIGINT will be trapped and used to kill long-running commands
+(statements) and also to kill the line being edited (like eg. BASH do). (You
+can still use Ctrl-D to exit.)
+
=head1 AUTHOR
Shawn M Moore, C<< <sartak at gmail dot com> >>
=cut
-
Modified: trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/LexEnv.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/LexEnv.pm?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/LexEnv.pm (original)
+++ trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/LexEnv.pm Tue Mar 9 14:28:07 2010
@@ -68,5 +68,24 @@
Devel::REPL::Plugin::LexEnv - Provide a lexical environment for the REPL
+=head1 SYNOPSIS
+
+ # in your re.pl file:
+ use Devel::REPL;
+ my $repl = Devel::REPL->new;
+ $repl->load_plugin('LexEnv');
+
+ $repl->lexical_environment->do(<<'CODEZ');
+ use FindBin;
+ use lib "$FindBin::Bin/../lib";
+ use MyApp::Schema;
+ my $s = MyApp::Schema->connect('dbi:Pg:dbname=foo','broseph','elided');
+ CODEZ
+
+ $repl->run;
+
+ # after you run re.pl:
+ $ warn $s->resultset('User')->first->first_name # <-- note that $s works
+
=cut
Modified: trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/ReadLineHistory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/ReadLineHistory.pm?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/ReadLineHistory.pm (original)
+++ trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/ReadLineHistory.pm Tue Mar 9 14:28:07 2010
@@ -1,6 +1,6 @@
# First cut at using the readline history directly rather than reimplementing
# it. It does save history but it's a little crappy; still playing with it ;)
-#
+#
# epitaph, 22nd April 2007
package Devel::REPL::Plugin::ReadLineHistory;
Modified: trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Timing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Timing.pm?rev=53984&op=diff
==============================================================================
--- trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Timing.pm (original)
+++ trunk/libdevel-repl-perl/lib/Devel/REPL/Plugin/Timing.pm Tue Mar 9 14:28:07 2010
@@ -30,6 +30,20 @@
Devel::REPL::Plugin::Timing - display execution times
+=head1 SYNOPSIS
+
+ # in your re.pl file:
+ use Devel::REPL;
+ my $repl = Devel::REPL->new;
+ $repl->load_plugin('Timing');
+
+ # after you run re.pl:
+ $ sum map $_*100, 1..100000;
+ Took 0.0830280780792236 seconds.
+ 500005000000
+
+ $
+
=head1 AUTHOR
Shawn M Moore, C<< <sartak at gmail dot com> >>
More information about the Pkg-perl-cvs-commits
mailing list