X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FPPI.pm;h=4f80f5e0522a76a53b942a12efc8fd164e68fcd2;hp=5a5821404bd415bf5799b7e516448b23d12271bd;hb=7403333dae2210dc9235882e4178349129461ed1;hpb=c5bf3ed26017b944073c4328790f21686883eca9 diff --git a/lib/Devel/REPL/Plugin/PPI.pm b/lib/Devel/REPL/Plugin/PPI.pm index 5a58214..4f80f5e 100644 --- a/lib/Devel/REPL/Plugin/PPI.pm +++ b/lib/Devel/REPL/Plugin/PPI.pm @@ -1,14 +1,17 @@ -#!/usr/bin/perl - +use strict; +use warnings; package Devel::REPL::Plugin::PPI; use Devel::REPL::Plugin; use PPI; use PPI::Dumper; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; -with qw(Devel::REPL::Plugin::Turtles); +sub BEFORE_PLUGIN { + my $self = shift; + $self->load_plugin('Turtles'); +} sub expr_command_ppi { my ( $self, $eval, $code ) = @_; @@ -34,7 +37,7 @@ Devel::REPL::Plugin::PPI - PPI dumping of Perl code PPI::Document PPI::Statement PPI::Token::Word 'Devel::REPL' - + repl> #ppi { > warn $]; > }