… | … | ||
---|---|---|---|
69 | } | 69 | } |
70 | 70 | ||
71 | close CFG; | 71 | close CFG; |
72 | } | 72 | } |
73 | 73 | ||
74 | my %POD_CACHE; | ||
75 | |||
74 | sub load_pod($) { | 76 | sub load_pod($) { |
77 | $POD_CACHE{$_[0]} ||= do { | ||
75 | my $pod = do { | 78 | my $pod = do { |
76 | local $/; | 79 | local $/; |
77 | open my $pod, "<:utf8", $_[0] | 80 | open my $pod, "<:utf8", $_[0] |
78 | or die "$_[0]: $!"; | 81 | or die "$_[0]: $!"; |
79 | <$pod> | 82 | <$pod> |
80 | }; | 83 | }; |
81 | 84 | ||
82 | Pod::POM->new->parse_text ($pod); | 85 | Pod::POM->new->parse_text ($pod) |
86 | } | ||
83 | } | 87 | } |
84 | 88 | ||
85 | our $DB_ENV; | 89 | our $DB_ENV; |
86 | 90 | ||
87 | { | 91 | { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |