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=2a18ff4844b09cf0f5865020f7af6eac4cab82db;hp=5a5821404bd415bf5799b7e516448b23d12271bd;hb=6f4f9516b3422a8ce51b89b596fb808b197f833e;hpb=c5bf3ed26017b944073c4328790f21686883eca9 diff --git a/lib/Devel/REPL/Plugin/PPI.pm b/lib/Devel/REPL/Plugin/PPI.pm index 5a58214..2a18ff4 100644 --- a/lib/Devel/REPL/Plugin/PPI.pm +++ b/lib/Devel/REPL/Plugin/PPI.pm @@ -1,14 +1,16 @@ -#!/usr/bin/perl - +use strict; +use warnings; package Devel::REPL::Plugin::PPI; -use Devel::REPL::Plugin; +use Devel::REPL::Plugin; use PPI; use PPI::Dumper; +use namespace::autoclean; -use namespace::clean -except => [ 'meta' ]; - -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 +36,7 @@ Devel::REPL::Plugin::PPI - PPI dumping of Perl code PPI::Document PPI::Statement PPI::Token::Word 'Devel::REPL' - + repl> #ppi { > warn $]; > }