add $class as instance to default
Gordon Irving [Wed, 30 Sep 2009 10:54:55 +0000 (11:54 +0100)]
lib/MooseX/Getopt.pm

index 90a9d77..5c916bd 100644 (file)
@@ -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);