From 64c81748bc33fdfba85006cf786b18c5181137b1 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 23 Sep 2019 19:01:55 +0100
Subject: - Tidied up solution by Mark Anderson.

---
 challenge-027/mark-anderson/perl5/ch-2.pl | 12 ++++++------
 1 file 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';
-- 
cgit