Fix tests
Tomas Doran [Fri, 13 Aug 2010 14:08:09 +0000 (15:08 +0100)]
lib/MooseX/SimpleConfig.pm
t/lib/MXDefaultMultipleConfigsTest.pm

index 8ecdf92..824158d 100644 (file)
@@ -10,6 +10,7 @@ use Config::Any ();
 sub get_config_from_file {
     my ($class, $file) = @_;
 
+    $file = $file->() if ref $file eq 'CODE';
     my $files_ref = ref $file eq 'ARRAY' ? $file : [$file];
 
     my $can_config_any_args = $class->can('config_any_args');
index 0319e52..397073d 100644 (file)
@@ -1,12 +1,7 @@
 package MXDefaultMultipleConfigsTest;
 use Moose;
-with 'MooseX::SimpleConfig';
 
-use Path::Class::File;
-
-has 'direct_attr' => (is => 'ro', isa => 'Int');
-
-has 'req_attr' => (is => 'rw', isa => 'Str', required => 1);
+extends 'MXDefaultConfigTest';
 
 has '+configfile' => ( default => sub { [ 'test.yaml' ] } );