From 72209dc06a802d269a2adbd0265066cd75d8a9d5 Mon Sep 17 00:00:00 2001
From: Doomtrain14 <yet.ebreo@gmail.com>
Date: Fri, 19 Feb 2021 10:57:21 +0800
Subject: Added few tests

---
 challenge-100/yet-ebreo/perl/ch-1.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/challenge-100/yet-ebreo/perl/ch-1.pl b/challenge-100/yet-ebreo/perl/ch-1.pl
index 515b224531..569125e669 100644
--- a/challenge-100/yet-ebreo/perl/ch-1.pl
+++ b/challenge-100/yet-ebreo/perl/ch-1.pl
@@ -14,9 +14,12 @@ use feature qw(say);
 # Output: 07:15 pm or 07:15pm
 
 #one-liner? sure thing! :D
-sub f { pop=~/:.. */&&sprintf"%02d%s",$`%12+12*($'?'pm'eq$':!($`%12)),$&.($`<12?'am':'pm')x!$' }
+sub f { pop=~/:.. */&&sprintf"%02d%s",$`%12+12*($'?'pm'eq$':$`%12<1),$&.($`<12?'am':'pm')x!$' }
 
 say &f('01:00 pm');
 say &f('12:01 am');
+say &f('12:00 pm');
+say &f('12:00 am');
 say &f('13:00');
 say &f('00:00');
+say &f('19:15');
-- 
cgit