Changeset 25045 for lang/perl/Shika

Timestamp:

11/27/08 11:45:32 (4 years ago)

Author:

tokuhirom

Message:

てきとうに new とか

Files:

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

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

@@ -6 +6 @@
 
 sub import {
+    my $pkg = caller(0);
     strict->import;
     warnings->import;
+
+    no strict 'refs';
+    *{"$pkg\::new"} = \&_new;
+    *{"$pkg\::has"} = \&_has;
+}
+
+sub _new {
+    my $class = shift;
+    bless { @_ }, $class
+}
+
+sub _has {
+    my $pkg = caller(0);
 }