X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FPeek.pm;h=6c55d1f6d82695b82f5e39626c00fdc5697e208c;hp=8e772eec7676edce4608f0b59bffcd1954960031;hb=1716b20061af51ca82cc543f618f19c1e20f2efa;hpb=213b6e768d5a81a0c9e37eabde0d5d352b49db72 diff --git a/lib/Devel/REPL/Plugin/Peek.pm b/lib/Devel/REPL/Plugin/Peek.pm index 8e772ee..6c55d1f 100644 --- a/lib/Devel/REPL/Plugin/Peek.pm +++ b/lib/Devel/REPL/Plugin/Peek.pm @@ -1,13 +1,18 @@ #!/usr/bin/perl +use strict; +use warnings; package Devel::REPL::Plugin::Peek; use Devel::REPL::Plugin; use Devel::Peek qw(Dump); -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_peek { my ( $self, $eval, $code ) = @_;