view release on metacpan or  search on metacpan

examples/extract_modules  view on Meta::CPAN

=cut

run(@ARGV) unless caller;

sub run {
	my @args = @_;

	my %opts;
	{
	local @ARGV = @args;
	getopts('bcejl0', \%opts);
	@args = @ARGV;
	}

	# if no parameters are passed, give usage information
	unless( @args ) {
		require Pod::Usage;
		Pod::Usage::pod2usage( msg => 'Please supply at least one filename to analyze' );
		exit;
		}