Changeset 8703 for lang/perl/Class-Component

Timestamp:

04/03/08 05:48:47 (5 years ago)

Author:

yappo

Message:

lang/perl/Class-Component: Class::Inspector のキャッシュも掃除させる

Files:

• lang/perl/Class-Component/trunk/lib/Class/Component.pm (modified) (3 diffs)

lang/perl/Class-Component/trunk/lib/Class/Component.pm

@@ -44 +44 @@
     for my $key (keys %{ $isa_list }) {
         delete $isa_list->{$key} if $key =~ /^$klass-/ || $key eq $klass;
+    }
+
+    my $pkg_require_cache = Class::Component::Implement->pkg_require_cache;
+    for my $key (keys %{ $pkg_require_cache }) {
+        delete $pkg_require_cache->{$key} if $key =~ /^$klass\::/ || $key eq $klass;
     }
 }
@@ -378 +383 @@
 }
 
-my %pkg_require_cache = ();
-sub pkg_require_cache_clear { %pkg_require_cache = () }
+my $pkg_require_cache = {};
+sub pkg_require_cache { $pkg_require_cache }
+sub pkg_require_cache_clear { $pkg_require_cache = {} }
 sub pkg_require {
     my($class, $c, $pkg) = @_;
@@ -385 +391 @@
     for my $isa_pkg (@{ $class->isa_list_cache($c) }) {
         my $new_pkg  = "$isa_pkg\::$pkg";
-        if (exists $pkg_require_cache{$new_pkg}) {
-            next unless $pkg_require_cache{$new_pkg};
+        if (exists $pkg_require_cache->{$new_pkg}) {
+            next unless $pkg_require_cache->{$new_pkg};
             return $new_pkg;
         }
-        $pkg_require_cache{$new_pkg} = 0;
+        $pkg_require_cache->{$new_pkg} = 0;
 
         next unless Class::Inspector->installed($new_pkg);
         $new_pkg->require or return;
-        $pkg_require_cache{$new_pkg} = 1;
+        $pkg_require_cache->{$new_pkg} = 1;
 
         return $new_pkg;