view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.09    2014-09-06  Released-By: PERLANCAR

	- No functional changes.

	- D'oh, previous change not yet done.


0.08    2014-09-06  Released-By: PERLANCAR

	- Adjust to Perinci::Sub::Wrapper 0.62
	  (_perinci.sub.wrapper.validate_args is now renamed).


0.07    2014-06-19  Released-By: SHARYANTO

        - No functional changes.

        - Rename dist from App-cal-id to App-CalId to follow my convention as
          follow: "For app dist, if binary name is a single word (e.g. foo) then
          module name is App::foo and dist name App-foo. If binary is a multiple
          word (e.g. foo-bar-baz) or there are multiple binaries, then module

lib/App/CalId.pm  view on Meta::CPAN

        show_joint_leave => {
            schema => ['bool', default => 0],
        },
        highlight_today => {
            schema => [bool => default => 1],
        },
        time_zone => {
            schema => 'str*',
        },
    },
    "x.perinci.sub.wrapper.disable_validate_args" => 1,
    result_naked => 1,
};
sub gen_monthly_calendar {
    my %args = @_;
    my $m = $args{month};
    my $y = $args{year};

    my @lines;
    my $tz = $args{time_zone} // $ENV{TZ} // "UTC";
    my $dt  = DateTime->new(year=>$y, month=>$m, day=>1, time_zone=>$tz);

lib/App/CalId.pm  view on Meta::CPAN

        show_joint_leave => {
            schema => ['bool', default => 0],
        },
        highlight_today => {
            schema => [bool => default => 1],
        },
        time_zone => {
            schema => 'str*',
        },
    },
    "x.perinci.sub.wrapper.disable_validate_args" => 1,
};
sub gen_calendar {
    my %args = @_;
    my $y  = $args{year};
    my $m  = $args{month};
    my $mm = $args{months} // 1;
    my $tz = $args{time_zone} // $ENV{TZ} // "UTC";

    my @lines;