Changeset 13411

Timestamp:

06/07/08 21:41:11 (5 years ago)

Author:

tomyhero

Message:

lang/perl/FormValidator::LazyWay? : implement LazyWay?->new() and test

Location:

lang/perl/FormValidator-LazyWay/branches/rebuild

Files:

• lib/FormValidator/LazyWay.pm (modified) (1 diff)
• lib/FormValidator/LazyWay/Utils.pm (modified) (1 diff)
• t/lazyway-new.t (added)
• t/message.t (modified) (1 diff)

lang/perl/FormValidator-LazyWay/branches/rebuild/lib/FormValidator/LazyWay.pm

@@ -2 +2 @@
 
 use Moose;
+use FormValidator::LazyWay::Rule;
+use FormValidator::LazyWay::Message;
+use Carp;
 
+has config  => ( is => 'ro' , isa => 'HashRef' ) ;
+has rule    => ( is => 'ro' , isa => 'FormValidator::LazyWay::Rule' ) ;
+has message => ( is => 'ro' , isa => 'FormValidator::LazyWay::Message' ) ;
+
+sub BUILD {
+    my $self = shift; 
+    croak 'you msue set config' unless $self->config;
+    my $rule = FormValidator::LazyWay::Rule->new( config => $self->config );
+    my $message = FormValidator::LazyWay::Message->new( config => $self->config , rule => $rule );
+    $self->{rule}    = $rule;
+    $self->{message} = $message;
+}
 
 1;
+
+=head1 NAME
+
+FormValidator::LazyWay - Yet Another Form Validator 
+
+=head1 SYNOPSYS
+
+ my $fv = FormValidator::LazyWay->new( $config );
+
+=head1 DESCRIPTION
+
+=head1 AUTHOR
+
+Tomohiro Teranishi <tomohiro.teranishi@gmail.com>
+
+=cut

lang/perl/FormValidator-LazyWay/branches/rebuild/lib/FormValidator/LazyWay/Utils.pm

@@ -27 +27 @@
 
         for my $key ( keys %$profile ) {
-            next if $key =~ m/^use_/ ;
+            next if $key =~ m/^use_/;
             push @invalid, $key unless ( $key eq any(@valid_profile_keys) );
         }

lang/perl/FormValidator-LazyWay/branches/rebuild/t/message.t

@@ -4 +4 @@
 use FindBin;
 use File::Spec;
-use YAML::Syck;
 use Data::Dumper;
 use lib File::Spec->catfile( $FindBin::Bin, 'lib' );