Changeset 25109 for lang/perl/Shika

Timestamp:

11/27/08 16:28:16 (4 years ago)

Author:

tokuhirom

Message:

support required option

Location:

lang/perl/Shika/trunk

Files:

• lib/Shika.pm (modified) (3 diffs)
• t/010_core/09_required.t (added)

lang/perl/Shika/trunk/lib/Shika.pm

@@ -3 +3 @@
 use strict;
 use warnings;
+use Carp;
 our $VERSION = '0.01';
 eval "use mro; 1;" or eval "use MRO::Compat; 1;"; ## no critic
@@ -45 +46 @@
             $attr{$name} = $has->{coerce}->($attr{$name});
         }
+        # process 'required'
+        while (my ($name, $has) = each %{ $klass->meta->{has} }) {
+            next unless $has->{required};
+            next if     exists $attr{$name};
+            Carp::croak "missing parameter $name for $class";
+        }
     }
 
@@ -299 +306 @@
     - isa?
     - make coerce as dsl
-    - required
 
 =head1 SEE ALSO