Zeiterfassung: Eingabe-Datum einzeln prüfen und nicht doppelt konvertieren
[kivitendo-erp.git] / Devel / REPL / Plugin / PermanentHistory.pm
1 package Devel::REPL::Plugin::PermanentHistory;
2
3 use Moose::Role;
4 use namespace::clean -except => [ 'meta' ];
5 use File::Slurp;
6 use Data::Dumper;
7
8 has 'history_file' => ( is => 'rw' );
9
10 sub load_history {
11   my $self = shift;
12   my $file = shift;
13
14   $self->history_file( $file );
15
16   return unless $self->history_file && -f $self->history_file;
17
18   my @history =
19     map { chomp; $_ }
20     read_file($self->history_file);
21 #  print  Dumper(\@history);
22   $self->history( \@history );
23   $self->term->addhistory($_) for @history;
24 }
25
26 before 'DESTROY' => sub {
27   my $self = shift;
28
29   return unless $self->history_file;
30
31   write_file $self->history_file,
32     map { $_, $/ }
33     grep $_,
34     grep { !/^quit\b/ }
35     @{ $self->history };
36 };
37
38 1;
39