Add a PPI plugin for #ppi CODE

git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@4403 bd8105ee-0ff8-0310-8827-fb3f25b6796d

diff --git a/lib/Devel/REPL/Plugin/B/Concise.pm b/lib/Devel/REPL/Plugin/B/Concise.pm
index 97ec791..1ec6afb 100644 (file)
--- a/lib/Devel/REPL/Plugin/B/Concise.pm
+++ b/lib/Devel/REPL/Plugin/B/Concise.pm
@@ -75,7 +75,7 @@ This plugin provides a C<concise> command that uses L<B::Concise> to dump
 optrees of expressions.
 
 The code is not actually executed, which means that when used with
-L<Deve::REPL::Plugin::OutputCache> there is .
+L<Deve::REPL::Plugin::OutputCache> there is no new value in C<_>.
 
 The command takes the same options as L<B::Concise/compile>, e.g. C<-basic> or
 C<-exec> to determine the dump order, C<-debug>, C<-concise> and C<-terse> to

diff --git a/lib/Devel/REPL/Plugin/PPI.pm b/lib/Devel/REPL/Plugin/PPI.pm
new file mode 100644 (file)
index 0000000..5a58214
--- /dev/null
+++ b/lib/Devel/REPL/Plugin/PPI.pm
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+
+package Devel::REPL::Plugin::PPI;
+use Devel::REPL::Plugin;
+
+use PPI;
+use PPI::Dumper;
+
+use namespace::clean -except => [ 'meta' ];
+
+with qw(Devel::REPL::Plugin::Turtles);
+
+sub expr_command_ppi {
+  my ( $self, $eval, $code ) = @_;
+
+  my $document = PPI::Document->new(\$code);
+  my $dumper   = PPI::Dumper->new($document);
+  return $dumper->string;
+}
+
+__PACKAGE__
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Devel::REPL::Plugin::PPI - PPI dumping of Perl code
+
+=head1 SYNOPSIS
+
+  repl> #ppi Devel::REPL
+  PPI::Document
+    PPI::Statement
+      PPI::Token::Word    'Devel::REPL'
+        
+  repl> #ppi {
+  > warn $];
+  > }
+  PPI::Document
+    PPI::Statement::Compound
+      PPI::Structure::Block       { ... }
+        PPI::Token::Whitespace    '\n'
+        PPI::Statement
+          PPI::Token::Word        'warn'
+          PPI::Token::Whitespace          ' '
+          PPI::Token::Magic       '$]'
+          PPI::Token::Structure   ';'
+        PPI::Token::Whitespace    '\n'
+
+=head1 DESCRIPTION
+
+This plugin provides a C<ppi> command that uses L<PPI::Dumper> to dump
+L<PPI>-parsed Perl documents.
+
+The code is not actually executed, which means that when used with
+L<Deve::REPL::Plugin::OutputCache> there is no new value in C<_>.
+
+=head1 AUTHOR
+
+Shawn M Moore E<lt>sartak@gmail.comE<gt>
+
+=cut
+
+