Changeset 3696 for lang/perl/Archer

Timestamp:

12/28/07 11:23:37 (11 months ago)

Author:

tokuhirom

Message:

r3643@mnk (orig r293): tokuhiro | 2007-03-01 07:09:48 -0800
added Kwalify support. thanks for franck & mizzy.

Location:

lang/perl/Archer

Files:

• Makefile.PL (modified) (1 diff)
• assets (added)
• assets/kwalify (added)
• assets/kwalify/schema.yaml (added)
• lib/Archer/ConfigLoader.pm (modified) (3 diffs)

lang/perl/Archer/Makefile.PL

@@ -29 +29 @@
 requires 'Term::ReadLine'        => 0;
 requires 'IO::Prompt';
+requires 'Kwalify';
 
 use_test_base;

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

@@ -5 +5 @@
 use Storable;
 use Carp;
+use Kwalify qw(validate); 
 
 sub new { bless {}, shift }
@@ -10 +11 @@
 sub load {
     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 $config;
@@ -28 +32 @@
     }
 
+    my $res = validate( YAML::Syck::LoadFile($schema_file), $config );
+    $context->log( error => $res ) unless $res == 1;
+
     return $config;
 }