X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt.pm;fp=lib%2FMooseX%2FGetopt.pm;h=74b8be02320a10f322243986847eb989567e9874;hb=f4308031a6f638c55439e3071af124f79eacd2ca;hp=790eb54d029b92f8babce96297c017c7aaca1889;hpb=d1e5e4256ca75af1c8be51f86b3d6321f0a3f506;p=gitmo%2FMooseX-Getopt.git diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm index 790eb54..74b8be0 100644 --- a/lib/MooseX/Getopt.pm +++ b/lib/MooseX/Getopt.pm @@ -193,7 +193,10 @@ sub _attrs_to_options { my $opt_string = join(q{|}, $flag, @aliases); - if ($attr->has_type_constraint) { + if ($attr->name eq 'configfile') { + $opt_string .= '=s'; + } + elsif ($attr->has_type_constraint) { my $type = $attr->type_constraint; if (MooseX::Getopt::OptionTypeMap->has_option_type($type)) { $opt_string .= MooseX::Getopt::OptionTypeMap->get_option_type($type)