Changeset 25082

Timestamp:

11/27/08 14:10:25 (4 years ago)

Author:

tokuhirom

Message:

BUILD を追加。

Location:

lang/perl/Shika/trunk

Files:

• lib/Shika.pm (modified) (2 diffs)
• t/010_core/06_build_with_handles.t (added)

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

@@ -37 +37 @@
     }
 
-    bless { %attr }, $class
+    my $self = bless { %attr }, $class;
+    if ($self->can('BUILD')) {
+        $self->BUILD(\%attr);
+    }
+    $self;
 }
 
@@ -51 +55 @@
     };
     if (my $handles = $attr{handles}) {
+        # TODO: support handles => 'foo'
         for my $handle (@$handles) {
             *{"$pkg\::$handle"} = sub {