Skip to content

Instantly share code, notes, and snippets.

@bessarabov
Created August 27, 2015 08:35
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save bessarabov/3c864ffeeda4be0cc455 to your computer and use it in GitHub Desktop.
#!/usr/bin/perl
=encoding UTF-8
=cut
=head1 DESCRIPTION
=cut
# common modules
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);
use DDP;
use Carp;
use Moment;
# global vars
# subs
# main
sub main {
my $current_status = 'unknown';
my $counter = 0;
foreach my $year (1891..1909) {
my $moment = Moment->new(
year => $year,
month => 1,
day => 1,
hour => 0,
minute => 0,
second => 0,
);
say $year, ' ', $moment->is_leap_year() ? 'високосный' : '';
}
say '#END';
}
main();
__END__
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment