add $class as instance to default
[gitmo/MooseX-Getopt.git] / lib / MooseX / Getopt.pm
index 4550082..5c916bd 100644 (file)
@@ -11,7 +11,7 @@ use Carp ();
 use Getopt::Long (); # GLD uses it anyway, doesn't hurt
 use constant HAVE_GLD => not not eval { require Getopt::Long::Descriptive };
 
-our $VERSION   = '0.21';
+our $VERSION   = '0.22';
 our $AUTHORITY = 'cpan:STEVAN';
 
 has ARGV       => (is => 'rw', isa => 'ArrayRef', metaclass => "NoGetopt");
@@ -30,7 +30,7 @@ sub new_with_options {
 
         if(!defined $configfile) {
             my $cfmeta = $class->meta->find_attribute_by_name('configfile');
-            $configfile = $cfmeta->default if $cfmeta->has_default;
+            $configfile = $cfmeta->default($class) if $cfmeta->has_default;
             if (defined $configfile) {
                 $config_from_file = eval {
                     $class->get_config_from_file($configfile);