- Tidied up solution by Mark Anderson.

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';