view release on metacpan or  search on metacpan

script/diffwc  view on Meta::CPAN

    format => 'context',
    color => $ENV{COLOR} // (-t STDOUT),
);

sub sanity_check {
    require File::Which;
    File::Which::which("diff") or die "diffwc: Can't find diff in PATH\n";
}

sub parse_cmdline {
    local @ARGV = @ARGV;
    # updated to diff 3.3 + color
    GetOptions(
        normal => sub {},
        'brief|q' => sub {},
        'report-identical-files|s' => sub {},
        'c' => sub { $Opts{format} = 'context' },
        'context|C' => sub { $Opts{format} = 'context' }, # XXX should've been context|C:i, but currently not supported by GLC
        'u' => sub { $Opts{format} = 'unified' },
        'unified|U' => sub { $Opts{format} = 'unified' }, # XXX should've been unified|U:i, but currently not supported by GLC
        'ed|e' => sub {},