tracks/perl5/exercises/leap/.meta/solutions/Leap.pm in trackler-2.2.1.131 vs tracks/perl5/exercises/leap/.meta/solutions/Leap.pm in trackler-2.2.1.132

- old
+ new

@@ -1,8 +1,10 @@ # Declare package 'Leap' with version -package Leap 2; +package Leap 3; use strict; use warnings; +use Exporter 'import'; +our @EXPORT_OK = qw(is_leap); sub is_leap { my $year = shift; divisible_by($year, 400) or divisible_by($year, 4) and !divisible_by($year, 100)