Changeset 25056

Timestamp:

11/27/08 12:04:03 (4 years ago)

Author:

tokuhirom

Message:

extends ついか

Location:

lang/perl/Shika/trunk

Files:

• lib/Shika.pm (modified) (3 diffs)
• t/010_core/03_extends.t (added)

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

@@ -11 +11 @@
 
     no strict 'refs';
-    *{"$pkg\::new"} = \&_new;
-    *{"$pkg\::has"} = \&_has;
+    *{"$pkg\::new"}     = \&_new;
+    *{"$pkg\::has"}     = \&_has;
+    *{"$pkg\::extends"} = \&_extends;
 }
 
@@ -31 +32 @@
 }
 
+sub _extends {
+    my $pkg = caller(0);
+    my @parents = @_;
+    no strict 'refs';
+    unshift @{"$pkg\::ISA"}, @parents;
+}
+
 1;
 __END__
@@ -36 +44 @@
 =head1 NAME
 
-Shika - Yet Anthor Lite Moose
+Shika - Lightweight class builder with DSL
 
 =head1 SYNOPSIS