use strict;
use warnings;
+my %cache;
+
=head1 NAME
Config::Any::Perl - Load Perl config files
sub load {
my $class = shift;
my $file = shift;
- return eval { require $file };
+ my $content;
+
+ unless( $content = $cache{ $file } ) {
+ $content = eval { require $file };
+ $cache{ $file } = $content;
+ }
+
+ return $content;
}
=head1 AUTHOR