Changeset 25139 for lang

Timestamp:

11/27/08 21:06:46 (4 years ago)

Author:

tokuhirom

Message:

added init_meta

Files:

• lang/perl/Shika/trunk/lib/Shika.pm (modified) (2 diffs)

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

@@ -12 +12 @@
     warnings->import;
 
-    my $meta = +{
-        has      => {},
-        default  => {},
-    };
-
     no strict 'refs';
     *{"$pkg\::new"}     = \&_new;
@@ -22 +17 @@
     *{"$pkg\::extends"} = \&_extends;
     *{"$pkg\::with"}    = \&_with;
+    Shika::init_meta($pkg);
+}
+
+sub init_meta {
+    my $pkg = shift;
+    my $meta = +{
+        has      => {},
+        default  => {},
+    };
+
+    no strict 'refs';
     *{"$pkg\::meta"}    = sub { $meta };
 }