view release on metacpan or  search on metacpan

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

280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
            sprintf("%s %s %s",
                    _rpad(21, $moncals[$i+0][0][$_]//""),
                    _rpad(21, $moncals[$i+1][0][$_]//""),
                    _rpad(21, $moncals[$i+2][0][$_]//""));
    }
    last if $i+3 >= $j;
    $i += 3;
    push @lines, "";
}
 
# print legends
for my $i (0..@hol-1) {
    if ($hol[1]{module}) {
        my @notes = ($hol[$i]{module});
        push @notes, @{$hol[$i]{tags}} if $hol[1]{tags};
        push @lines, "" if $i == 0;
        push @lines, sprintf("%s%2d %s = %s\e[0m",
                             ansifg(assign_rgb_light_color($hol[$i]{module})),
                             $hol[$i]{day}, $short_month_names->[$hol[$i]{month}-1],
                             "$hol[$i]{summary} (".join(", ", @notes).")",
                         );