/usr/share/perl5/Devel/REPL/Plugin/DumpHistory.pm is in libdevel-repl-perl 1.003025-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | use strict;
use warnings;
package Devel::REPL::Plugin::DumpHistory;
BEGIN {
$Devel::REPL::Plugin::DumpHistory::AUTHORITY = 'cpan:PHAYLON';
}
{
$Devel::REPL::Plugin::DumpHistory::VERSION = '1.003025';
}
use Devel::REPL::Plugin;
use namespace::autoclean;
## Seems to be a sequence issue with requires
# requires qw{ history };
around 'read' => sub {
my $orig = shift;
my ($self, @args) = @_;
my $line = $self->$orig(@args);
if (defined $line) {
if ($line =~ m/^:dump ?(.*)$/) {
my $file = $1;
$self->print_history($file);
return '';
}
}
return $line;
};
sub print_history {
my ( $self, $file ) = @_;
if ($file) {
open( my $fd, ">>", $file )
or do { warn "Couldn't open '$file': $!\n"; return; };
print $fd "$_\n" for ( @{ $self->history } );
$self->print( sprintf "Dumped %d history lines to '$file'\n",
scalar @{ $self->history } );
close $fd;
} else {
$self->print("$_\n") for ( @{ $self->history } );
}
return 1;
}
1;
__END__
=head1 NAME
Devel::REPL::Plugin::DumpHistory - Plugin for Devel::REPL to save or print
the history.
=head1 SYNOPSIS
use Devel::REPL;
my $repl = Devel::REPL->new;
$repl->load_plugin('LexEnv');
$repl->load_plugin('History');
$repl->load_plugin('DumpHistory');
$repl->run;
=head1 DESCRIPTION
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.
=head1 SEE ALSO
C<Devel::REPL>
=head1 AUTHOR
mgrimes, E<lt>mgrimes at cpan dot org<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2007 by mgrimes
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.2 or,
at your option, any later version of Perl 5 you may have available.
=cut
|