#!/usr/bin/env perl

package iperlmoddir;
$iperlmoddir::VERSION = '1.02';
use Getopt::Long::Descriptive;
use App::iperlmoddir;
use Data::Dumper;

my ( $opts, $usage ) = describe_options(
    $0 . ' %o',
    [ 'skip|s=s',
        "comma-separated list of modules to exclude from results" ],
    [ 'dir|d=s', "specify other directory than current" ],

    [ 'group|g',       "group by rows" ],
    [ 'stat|count|c',  "print statistics, default true" ],
    [ 'public-only|p', "print only public methods, default false" ],

    [ 'no-used',      "do not print report about used modules" ],
    [ 'no-constants', "do not print report about constants" ],
    [ 'no-subs',      "do not print report about subroutines" ],

    [ 'verbose|v', "print extra stuff" ],
    [ 'help|h', "print usage message and exit", { shortcircuit => 1 } ],

);

print( $usage->text ), exit if $opts->help;
print "$0 run with options : " . Dumper $opts if $opts->verbose;

exit App::iperlmoddir->run($opts);

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

iperlmoddir

=head1 VERSION

version 1.02

=head1 AUTHOR

Pavel Serikov <pavelsr@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by Pavel Serikov.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
