view release on metacpan or  search on metacpan

bin/rt-repeat-ticket.in  view on Meta::CPAN

        if ( @ids ) {
            $RT::Logger->info(
                'Repeated ticket ' . $attr->Object->id . ': ' . join ', ', @ids );
        }
    }
    return;
}

sub process_args {
    require Getopt::Long;
    local @ARGV = @_;

    my %opt;
    Getopt::Long::GetOptions( \%opt, 'help|h', 'date=s', 'type=s', 'ticket=s' );

    if ( delete $opt{help} ) {
        require Pod::Usage;
        Pod::Usage::pod2usage( { verbose => 2 } );
        exit;
    }