has getopt => (
- is => 'rw',
- isa => 'MooseX::Getopt::Session',
+ is => 'rw',
+ isa => 'MooseX::Getopt::Session',
metaclass => 'NoGetopt',
- handles => [ 'ARGV', 'extra_argv' ],
+ handles => [ 'ARGV', 'extra_argv' ],
);
sub get_options_from_argv {
my $class = shift;
- Moose->throw_error("Single parameters to get_options_from_argv() must be a HASH ref")
- if ref $_[0] and ref $_ ne 'HASH';
+ Moose->throw_error(
+ "Single parameters to get_options_from_argv() must be a HASH ref"
+ ) if ref $_[0] and ref $_ ne 'HASH';
- my $options = { %{ $class->get_options_from_configfile }, @_ == 1 ? %{ $_[0] } : @_ };
+ my $options = {
+ %{ $class->get_options_from_configfile },
+ @_ == 1 ? %{ $_[0] } : @_
+ };
my $getopt = defined $options->{getopt}
- ? $options->{getopt}
- : $class->_default_getopt_session->new(
- classes_filter => sub { $_ eq $class },
- options => $options,
- );
+ ? $options->{getopt}
+ : $class->_default_getopt_session->new(
+ classes_filter => sub { $_ eq $class },
+ options => $options,
+ );
# Call Getopt parser only once.
$getopt->build_options if not $getopt->has_status;
my $new_options = {
- %{ $options }, # explicit options to ->new
- %{ $getopt->options }, # options from CLI
+ %$options, # explicit options to ->new
+ %{ $getopt->options }, # options from CLI
getopt => $getopt,
};
my $options = {};
- if ($class->meta->does_role('MooseX::ConfigFromFile')) {
+ if ( $class->meta->does_role('MooseX::ConfigFromFile') ) {
local @ARGV = @ARGV;
my $configfile;
- my $opt_parser = Getopt::Long::Parser->new( config => [ 'pass_through' ] );
+ my $opt_parser = Getopt::Long::Parser->new( config => ['pass_through'] );
$opt_parser->getoptions( "configfile=s" => \$configfile );
- if (not defined $configfile) {
+ if ( not defined $configfile ) {
my $cfmeta = $class->meta->find_attribute_by_name('configfile');
$configfile = $cfmeta->default if $cfmeta->has_default;
};
- if (defined $configfile) {
+ if ( defined $configfile ) {
$options = $class->get_config_from_file($configfile);
};
};
return grep {
$_->does('MooseX::Getopt::Meta::Attribute::Trait')
- or
- $_->name !~ /^_/
+ or $_->name !~ /^_/
} grep {
!$_->does('MooseX::Getopt::Meta::Attribute::Trait::NoGetopt')
} $class->meta->compute_all_applicable_attributes;
no Moose::Role; 1;
+
__END__
=pod
These type constraints are set up as properly typed options with
Getopt::Long, using the C<=i>, C<=f> and C<=s> modifiers as appropriate.
+=item I<Bool|Int>, I<Bool|Float>, I<Bool|Str>
+
+These type constaints are set up as properly typed options with
+Getopt::Long, using the C<:i>, C<:f> and C<:s> modifiers as appropriate.
+
=item I<ArrayRef>
An I<ArrayRef> type constraint is set up as a multiple value option
Yuval Kogman, E<lt>nothingmuch@woobling.orgE<gt>
+Piotr Roszatycki, E<lt>dexter@cpan.orgE<gt>
+
=head1 CONTRIBUTORS
Ryan D Johnson, E<lt>ryan@innerfence.comE<gt>
-Piotr Roszatycki, E<lt>dexter@cpan.orgE<gt>
-
=head1 COPYRIGHT AND LICENSE
Copyright 2007-2008 by Infinity Interactive, Inc.