diff options
| -rw-r--r-- | challenge-027/mark-anderson/perl5/ch-2.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-027/mark-anderson/perl5/ch-2.pl b/challenge-027/mark-anderson/perl5/ch-2.pl index df3fa8859f..38fc3d33d8 100644 --- a/challenge-027/mark-anderson/perl5/ch-2.pl +++ b/challenge-027/mark-anderson/perl5/ch-2.pl @@ -3,18 +3,18 @@ package XHistory; require Tie::Scalar; @ISA = 'Tie::StdScalar'; -use Modern::Perl;# '2018'; +use Modern::Perl '2018'; +use feature qw(signatures); +no warnings qw(experimental::signatures); my @history; -sub STORE { - my($self, $value) = @_; +sub STORE($self, $value) { push @history, $value; } -sub FETCH { - my $self = shift; - return $history[-1]; +sub FETCH($self) { + $history[-1]; } tie my $x, 'XHistory'; |