view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN

sub new {
	my ( $class, $inc ) = @_;
	$inc = [@INC] unless ref $inc eq 'ARRAY';
	bless { verbose => 0, }, $class;
}

sub run {
	my ( $self, @args ) = @_;

	local @ARGV = @args;
	GetOptions(
		'v|verbose!'   => sub { ++$self->{verbose} },
		'V|version!'   => \$self->{version},
		'config-dir=s' => \$self->{config_dir},
	) or $self->usage;

	if ( $self->{version} ) {
		$self->puts("genconf (App::genconf) version $App::genconf::VERSION");
		exit 1;
	}

lib/App/genconf.pm  view on Meta::CPAN

sub new {
	my ( $class, $inc ) = @_;
	$inc = [@INC] unless ref $inc eq 'ARRAY';
	bless { verbose => 0, }, $class;
}

sub run {
	my ( $self, @args ) = @_;

	local @ARGV = @args;
	GetOptions(
		'v|verbose!'   => sub { ++$self->{verbose} },
		'V|version!'   => \$self->{version},
		'config-dir=s' => \$self->{config_dir},
	) or $self->usage;

	if ( $self->{version} ) {
		$self->puts("genconf (App::genconf) version $App::genconf::VERSION");
		exit 1;
	}