view release on metacpan or  search on metacpan

eg/scal  view on Meta::CPAN

}

GetOptions( \%opt,
    qw{ accented! color! color_today|color-today=s events! j! y! },
    help => sub { pod2usage( { -verbose => 2 } ) },
) and @ARGV <= ( $opt{y} ? 1 : 2 ) or pod2usage( { -verbose => 0 } );

my $on_date;
if ( $opt{events} ) {
    if ( $opt{accented} ) {
	$] lt '5.008'
	    and die "-accented requires at least Perl 5.8\n";
	$on_date = __PACKAGE__->can( '__on_date_accented' );
	eval q<binmode STDOUT, ':encoding(utf-8)'>;
    } else {
	$on_date = __PACKAGE__->can( '__on_date' );
    }
} else {
    $on_date = sub { return };
}