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