r33005 - in /branches/upstream/libdevel-repl-perl/current: ./ lib/Devel/ lib/Devel/REPL/ lib/Devel/REPL/Plugin/ lib/Devel/REPL/Plugin/CompletionDriver/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Fri Apr 10 17:57:00 UTC 2009
Author: ryan52-guest
Date: Fri Apr 10 17:56:55 2009
New Revision: 33005
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33005
Log:
[svn-upgrade] Integrating new upstream version, libdevel-repl-perl (1.003006)
Modified:
branches/upstream/libdevel-repl-perl/current/Changes
branches/upstream/libdevel-repl-perl/current/META.yml
branches/upstream/libdevel-repl-perl/current/Makefile.PL
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL.pm
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin.pm
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Commands.pm
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Globals.pm
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/LexEnv.pm
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/DDS.pm
branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Nopaste.pm
Modified: branches/upstream/libdevel-repl-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/Changes?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/Changes (original)
+++ branches/upstream/libdevel-repl-perl/current/Changes Fri Apr 10 17:56:55 2009
@@ -1,3 +1,13 @@
+1.3.6
+ - had to cut a new release, something went wrong with use of M::I
+1.3.5
+ - resolve rt.cpan#43807 three Completion drivers not loading Completion plugin
+ - resolve rt.cpan#43808 infinite recursion on Plugin::Commands when Plugin::Packages not loaded
+ - resolve rt.cpan#44902 warning due to deprecated use of alias_method in Plugin.pm
+ - add comment formatting option to the nopaste plugin
+ - add #pastetitle command to Nopaste plugin
+ - If the object we're dumping has stringification overloading, then use
+ it directly
1.3.4
- resolve rt.cpan#43109 Missing deps for Default Profile Plugins
1.3.3
Modified: branches/upstream/libdevel-repl-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/META.yml?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/META.yml (original)
+++ branches/upstream/libdevel-repl-perl/current/META.yml Fri Apr 10 17:56:55 2009
@@ -21,9 +21,9 @@
Devel::Peek: 0
File::HomeDir: 0
File::Spec: 0
- Moose: 0.64
- MooseX::AttributeHelpers: 0.14
- MooseX::Getopt: 0.15
+ Moose: 0.74
+ MooseX::AttributeHelpers: 0.16
+ MooseX::Getopt: 0.18
MooseX::Object::Pluggable: 0.0009
Task::Weaken: 0
Term::ANSIColor: 0
@@ -32,4 +32,4 @@
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
-version: 1.003004
+version: 1.003006
Modified: branches/upstream/libdevel-repl-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/Makefile.PL?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/Makefile.PL (original)
+++ branches/upstream/libdevel-repl-perl/current/Makefile.PL Fri Apr 10 17:56:55 2009
@@ -13,10 +13,10 @@
requires 'Term::ReadLine';
# rest
-requires 'Moose' => '0.64';
+requires 'Moose' => '0.74';
requires 'MooseX::Object::Pluggable' => '0.0009';
-requires 'MooseX::Getopt' => '0.15';
-requires 'MooseX::AttributeHelpers' => '0.14';
+requires 'MooseX::Getopt' => '0.18';
+requires 'MooseX::AttributeHelpers' => '0.16';
requires 'namespace::clean';
requires 'File::HomeDir';
requires 'Task::Weaken';
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL.pm Fri Apr 10 17:56:55 2009
@@ -5,7 +5,7 @@
use namespace::clean -except => [ 'meta' ];
use 5.008001; # backwards compat, doesn't warn like 5.8.1
-our $VERSION = '1.003004'; # 1.3.4
+our $VERSION = '1.003006'; # 1.3.6
with 'MooseX::Object::Pluggable';
@@ -404,6 +404,8 @@
=item Oliver Gorwits - oliver on irc.perl.org
+=item Andrew Moore - C<< <amoore at cpan.org> >>
+
=back
=head1 LICENSE
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin.pm Fri Apr 10 17:56:55 2009
@@ -8,7 +8,7 @@
sub import {
my $target = caller;
my $meta = Devel::REPL::Meta::Plugin->initialize($target);
- $meta->alias_method('meta' => sub { $meta });
+ $meta->add_method('meta' => sub { $meta });
goto &Moose::Role::import;
}
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Commands.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Commands.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Commands.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Commands.pm Fri Apr 10 17:56:55 2009
@@ -13,6 +13,7 @@
sub BEFORE_PLUGIN {
my ($self) = @_;
+ $self->load_plugin('Packages');
unless ($self->can('setup_commands')) {
$self->meta->add_method('setup_commands' => sub {});
}
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Globals.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Globals.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Globals.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Globals.pm Fri Apr 10 17:56:55 2009
@@ -1,6 +1,11 @@
package Devel::REPL::Plugin::CompletionDriver::Globals;
use Devel::REPL::Plugin;
use namespace::clean -except => [ 'meta' ];
+
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('Completion');
+}
around complete => sub {
my $orig = shift;
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/LexEnv.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/LexEnv.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/LexEnv.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/LexEnv.pm Fri Apr 10 17:56:55 2009
@@ -1,6 +1,11 @@
package Devel::REPL::Plugin::CompletionDriver::LexEnv;
use Devel::REPL::Plugin;
use namespace::clean -except => [ 'meta' ];
+
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('Completion');
+}
around complete => sub {
my $orig = shift;
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm Fri Apr 10 17:56:55 2009
@@ -1,9 +1,11 @@
-#!/usr/bin/perl
-
package Devel::REPL::Plugin::CompletionDriver::Turtles;
use Devel::REPL::Plugin;
+use namespace::clean -except => [ "meta" ];
-use namespace::clean -except => [ "meta" ];
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('Completion');
+}
around complete => sub {
my $orig = shift;
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/DDS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/DDS.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/DDS.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/DDS.pm Fri Apr 10 17:56:55 2009
@@ -9,10 +9,14 @@
my $to_dump = (@_ > 1) ? [@_] : $_[0];
my $out;
if (ref $to_dump) {
- my $dds = Data::Dump::Streamer->new;
- $dds->Freezer(sub { "$_[0]"; });
- $dds->Data($to_dump);
- $out = $dds->Out;
+ if (overload::Method($to_dump, '""')) {
+ $out = "$to_dump";
+ } else {
+ my $dds = Data::Dump::Streamer->new;
+ $dds->Freezer(sub { "$_[0]"; });
+ $dds->Data($to_dump);
+ $out = $dds->Out;
+ }
} else {
$out = $to_dump;
}
Modified: branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Nopaste.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Nopaste.pm?rev=33005&op=diff
==============================================================================
--- branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Nopaste.pm (original)
+++ branches/upstream/libdevel-repl-perl/current/lib/Devel/REPL/Plugin/Nopaste.pm Fri Apr 10 17:56:55 2009
@@ -2,6 +2,7 @@
use Devel::REPL::Plugin;
use MooseX::AttributeHelpers;
+use Moose::Util::TypeConstraints;
use namespace::clean -except => [ 'meta' ];
use Scalar::Util qw(blessed);
@@ -21,12 +22,28 @@
},
);
+has paste_title => (
+ is => 'rw',
+ isa => 'Str',
+ lazy => 1,
+ default => 'Devel::REPL session',
+);
+
+has 'nopaste_format' => (
+ is => 'rw',
+ isa => enum( [qw[ comment_code comment_output ]] ),
+ lazy => 1,
+ default => 'comment_output',
+);
+
before eval => sub {
my $self = shift;
my $line = shift;
- # prepend each line with #
- $line =~ s/^/# /mg;
+ if ( $self->nopaste_format() eq 'comment_code' ) {
+ # prepend each line with #
+ $line =~ s/^/# /mg;
+ }
$self->add_to_session($line . "\n");
};
@@ -47,6 +64,11 @@
}
} @ret;
+ if ( $self->nopaste_format() eq 'comment_output' ) {
+ # prepend each line with #
+ map { $_ =~ s/^/# /mg } @ret_as_str;
+ }
+
$self->add_to_session(join("\n", @ret_as_str) . "\n\n");
return @ret;
@@ -58,9 +80,15 @@
require App::Nopaste;
return App::Nopaste->nopaste(
text => $self->complete_session,
- desc => "Devel::REPL session",
+ desc => $self->paste_title(),
lang => "perl",
);
+}
+
+sub command_pastetitle {
+ my ( $self, undef, $title ) = @_;
+
+ $self->paste_title( $title );
}
1;
@@ -71,9 +99,54 @@
Devel::REPL::Plugin::Nopaste - #nopaste to upload session's input and output
+=head1 COMMANDS
+
+This module provides these commands to your Devel::REPL shell:
+
+=head2 #nopaste
+
+The C<#nopaste> sends a transcript of your session to a nopaste
+site.
+
+=head2 #pastetitle
+
+The C<#pastetitle> command allows you to set the title of the paste on
+the nopaste site. For example:
+
+C<#pastetitle example of some code>
+
+defaults to 'Devel::REPL session'
+
+=head1 CONFIGURATION
+
+=head2 nopaste_format
+
+The format sent to the nopaste server can be adjusted with the
+C<nopaste_format> option. By default, the output of each perl
+statement is commented out, and the perl statements themselves are
+not. This can be reversed by setting the C<nopaste_format> attribute
+to C<comment_code> like this in your re.pl file:
+
+C<< $_REPL->nopaste_format( 'comment_code' ); >>
+
+The default of commenting out the output would be set like this:
+
+C<< $_REPL->nopaste_format( 'comment_output' ); >>
+
+These options can be set during a Devel::REPL session, but only affect
+the future parts of the session, not the past parts.
+
=head1 AUTHOR
Shawn M Moore, C<< <sartak at gmail dot com> >>
+=head1 CONTRIBUTORS
+
+=over 4
+
+=item Andrew Moore - C<< <amoore at cpan.org> >>
+
+=back
+
=cut
More information about the Pkg-perl-cvs-commits
mailing list