Changeset 3697 for lang/perl/Archer/lib/Archer/ConfigLoader.pm

Timestamp:

12/28/07 11:23:38 (13 months ago)

Author:

tokuhirom

Message:

r3644@mnk (orig r294): tokuhiro | 2007-03-01 07:13:29 -0800
use Path::Class.

Files:

• lang/perl/Archer/lib/Archer/ConfigLoader.pm (modified) (2 diffs)

lang/perl/Archer/lib/Archer/ConfigLoader.pm

@@ -6 +6 @@
 use Carp;
 use Kwalify qw(validate); 
+use Path::Class;
+use FindBin;
 
 sub new { bless {}, shift }
@@ -12 +14 @@
     my ( $self, $stuff, $context ) = @_;
 
-    my $assets_dir = File::Spec->catfile($FindBin::Bin, 'assets'); 
-    my $schema_file = File::Spec->catfile( $assets_dir, 'kwalify', 'schema.yaml' );
+    my $schema_file = file( $FindBin::Bin, 'assets', 'kwalify', 'schema.yaml' );
 
     my $config;