Changeset 25598 for lang/perl/Shika

Timestamp:

12/01/08 18:00:31 (4 years ago)

Author:

tokuhirom

Message:

use constants

Files:

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

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

@@ -20 +20 @@
     $dst = ref $dst if ref $dst;
 
-    print "[debug] copy functions $src to $dst\n" if $ENV{SHIKA_DEBUG};
+    print "[debug] copy functions $src to $dst\n" if Shika::DEBUG_MODE;
     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;
-        print "[debug]   copying method $method\n" if $ENV{SHIKA_DEBUG};
+        print "[debug]   copying method $method\n" if Shika::DEBUG_MODE;
         if ($dst->can($dstmethod)) {
-            print "[debug]   $dst already have $dstmethod. skip\n" if $ENV{SHIKA_DEBUG};
+            print "[debug]   $dst already have $dstmethod. skip\n" if Shika::DEBUG_MODE;
             next;
         }
@@ -37 +37 @@
     my $klass = shift;
     eval "require $klass"; ## no critic ### too bad
-    print "[debug] cannot load class $@" if $ENV{SHIKA_DEBUG} && $@;
+    print "[debug] cannot load class $@" if Shika::DEBUG_MODE && $@;
 }