| … | … | ||
|---|---|---|---|
| 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 |