Changeset 25208 for lang/perl/Shika

Timestamp:

11/28/08 14:41:45 (4 years ago)

Author:

tokuhirom

Message:

added auto deref feature in copy_functions

Location:

lang/perl/Shika/trunk

Files:

• lib/Shika/Util.pm (modified) (2 diffs)
• t/020_role/07_apply_blessed.t (added)

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

@@ -17 +17 @@
 sub copy_functions {
     my ($src, $dst, $alias) = @_;
+    $src = ref $src if ref $src;
+    $dst = ref $dst if ref $dst;
 
+    print "[debug] copy functions $src to $dst\n" if $ENV{DEBUG};
     no strict 'refs';
     for my $method (@{ Shika::Util::get_functions($src) }) {
         next if $method eq 'has' || $method eq 'requires' || $method eq 'meta' || $method eq 'with';
         my $dstmethod = $alias->{$method} ? $alias->{$method} : $method;
-        next if $dst->can($dstmethod);
+        print "[debug]   copying method $method\n" if $ENV{DEBUG};
+        if ($dst->can($dstmethod)) {
+            print "[debug]   $dst already have $dstmethod. skip\n" if $ENV{DEBUG};
+            next;
+        }
         *{"${dst}::${dstmethod}"} = *{"${src}::${method}"};
     }
@@ -30 +37 @@
     my $klass = shift;
     eval "require $klass"; ## no critic ### too bad
+    print "[debug] cannot load class $@" if $ENV{DEBUG} && $@;
 }