Changeset 17994

Timestamp:

08/22/08 00:13:41 (5 months ago)

Author:

tokuhirom

Message:

- added test cases
- refactoring
- make immutable

Location:

lang/perl/Nanto/trunk

Files:

• lib/Nanto/Config/Any.pm (modified) (1 diff)
• lib/Nanto/Config/YAMLSyck.pm (modified) (2 diffs)
• t/Config/Any.t (added)
• t/lib/Foo/Any.pm (added)

lang/perl/Nanto/trunk/lib/Nanto/Config/Any.pm

@@ -16 +16 @@
 
     $cache->{$class} ||= do {
-        my $cfg = catfile(Nanto::Utils::home($class), config_fname);
+        my $cfg = Nanto::Utils::home($class)->file(config_fname);
         croak "$cfg not found" unless -f $cfg;
         Config::Any->load_files({ files => [ $cfg ], use_ext => 1 })->[0]->{$cfg};

lang/perl/Nanto/trunk/lib/Nanto/Config/YAMLSyck.pm

@@ -4 +4 @@
 
 use Nanto::Utils;
-use File::Spec::Functions;
-use Carp;
-use YAML::Syck;
+use Carp ();
+use YAML::Syck ();
 
 my $cache = {};
@@ -16 +15 @@
 
     $cache->{$class} ||= do {
-        my $cfg = catfile(Nanto::Utils::home($class), config_fname);
-        croak "$cfg not found" unless -f $cfg;
+        my $cfg = Nanto::Utils::home($class)->file(config_fname);
+        Carp::croak "$cfg not found" unless -f $cfg;
         YAML::Syck::LoadFile($cfg);
     };
 }
 
-1;
+no Moose; __PACKAGE__->meta->make_immutable;
 
 # this is