exercism-perl5

Repository for my Perl 5 Exercism exercises
git clone git://git.samirparikh.com/exercism-perl5
Log | Files | Refs | README

commit 885052fd663bf4c78442c7723f7e3368bb98c78d
parent bef1eb2c5de699bff52eaa3f2f5e4b21e34a505b
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Sat,  5 Mar 2022 13:28:12 +0000

get all tests to pass

Diffstat:
Mleap/Leap.pm | 6+++++-
1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/leap/Leap.pm b/leap/Leap.pm @@ -4,10 +4,14 @@ use strict; use warnings; use Exporter qw<import>; our @EXPORT_OK = qw<is_leap_year>; +use DateTime; # definitely cheating! sub is_leap_year { my ($year) = @_; - return undef; # Replace this with your own code to pass the tests. + my $dt = DateTime->new( + year => $year, + ); + return $dt->is_leap_year; } 1;