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)