Changeset 20904 for lang/perl/Module-Setup/trunk/lib/Module/Setup/Flavor.pm

Timestamp:

10/07/08 18:35:03 (3 months ago)

Author:

yappo

Message:

add data cache hash

Files:

• lang/perl/Module-Setup/trunk/lib/Module/Setup/Flavor.pm (modified) (1 diff)

lang/perl/Module-Setup/trunk/lib/Module/Setup/Flavor.pm

@@ -6 +6 @@
 use YAML ();
 
+my %data_cache;
 sub loader {
     my $class = shift;
 
-    local $/;
-    my $data = eval "package $class; <DATA>"; ## no critic
-    Carp::croak "flavor template class is invalid: $class" unless $data;
+    @{ $data_cache{$class} ||= do {
+        local $/;
+        my $data = eval "package $class; <DATA>"; ## no critic
+        Carp::croak "flavor template class is invalid: $class" unless $data;
 
-    my @template = YAML::Load(join '', $data);
-    @template;
+        my @template = YAML::Load(join '', $data);
+        \@template;
+    } };
 }