use OO syntax for handling subref
Karen Etheridge [Sun, 3 Feb 2013 01:40:52 +0000 (17:40 -0800)]
lib/MooseX/ConfigFromFile.pm

index f1b5f21..a2d2211 100644 (file)
@@ -30,7 +30,7 @@ sub new_with_config {
         $configfile = try { $class->configfile };
         $configfile ||= $cfmeta->default if $cfmeta->has_default;
         if (ref $configfile eq 'CODE') {
-            $configfile = &$configfile($class);
+            $configfile = $configfile->($class);
         }
     }