X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FDumpHistory.pm;h=80bd7cd7ab1d8df39341ae2c745bf84a1e8e45f1;hp=71bcd7c11ea126f45f033d49a306f07c7285eb60;hb=HEAD;hpb=a2532f4673020dcde0245441fd98d51a0692bbd1 diff --git a/lib/Devel/REPL/Plugin/DumpHistory.pm b/lib/Devel/REPL/Plugin/DumpHistory.pm index 71bcd7c..80bd7cd 100644 --- a/lib/Devel/REPL/Plugin/DumpHistory.pm +++ b/lib/Devel/REPL/Plugin/DumpHistory.pm @@ -1,10 +1,15 @@ +use strict; +use warnings; package Devel::REPL::Plugin::DumpHistory; +# ABSTRACT: Plugin for Devel::REPL to save or print the history -use Moose::Role; -use namespace::clean -except => [ 'meta' ]; +our $VERSION = '1.003030'; + +use Devel::REPL::Plugin; +use namespace::autoclean; ## Seems to be a sequence issue with requires -# requires qw{ history }; +# requires qw{ history }; around 'read' => sub { my $orig = shift; @@ -41,16 +46,10 @@ sub print_history { __END__ -=head1 NAME - -Devel::REPL::Plugin::DumpHistory - Plugin for Devel::REPL to save or print -the history. +=pod =head1 SYNOPSIS - #!/usr/bin/perl - - use lib './lib'; use Devel::REPL; my $repl = Devel::REPL->new; @@ -61,7 +60,7 @@ the history. =head1 DESCRIPTION -Plugin that adds the C<:dump> and C<:dump file_name> commands to the +Plugin that adds the C<:dump> and C<:dump file_name> commands to the repl which will print the history to STDOUT or append the history to the file given.