Changeset 25078 for lang/perl/Shika/trunk/lib/Shika.pm

Timestamp:

11/27/08 13:51:47 (4 years ago)

Author:

mattn

Message:

shouldn't store scalar?

Files:

• lang/perl/Shika/trunk/lib/Shika.pm (modified) (1 diff)

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

@@ -28 +28 @@
         while (my ($name, $code) = each %{$default->{$klass}}) {
             unless (exists $attr{$name}) {
-                $attr{$name} = $code->();
+                $attr{$name} = ref($code) eq 'CODE' ? $code->() : $code;
             }
         }