diff options
| author | Dylan William Hardison <dylan@hardison.net> | 2017-03-26 05:13:07 +0200 |
|---|---|---|
| committer | Dylan William Hardison <dylan@hardison.net> | 2017-03-27 18:43:16 +0200 |
| commit | dc6eca0cc8ab4dd41a5b5f618fa8e49b0fe194f7 (patch) | |
| tree | 15b688b2c7c0a08ed5331ea2b1c84533357de9c4 /Bugzilla/CPAN.pm | |
| parent | 15daaf123635c1e734dfe6e3aed60f52df0364ce (diff) | |
| download | bugzilla-dc6eca0cc8ab4dd41a5b5f618fa8e49b0fe194f7.tar.gz bugzilla-dc6eca0cc8ab4dd41a5b5f618fa8e49b0fe194f7.tar.xz | |
Bug 1350467 - Add method Bugzilla->preload_features() to be called in mod_perl.pl startup
Diffstat (limited to 'Bugzilla/CPAN.pm')
| -rw-r--r-- | Bugzilla/CPAN.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Bugzilla/CPAN.pm b/Bugzilla/CPAN.pm index f044e45bc..1ffac601c 100644 --- a/Bugzilla/CPAN.pm +++ b/Bugzilla/CPAN.pm @@ -104,6 +104,16 @@ sub feature { return $FEATURE_LOADED{$feature_name} = 1; } +sub preload_features { + my ($class) = @_; + return 0 unless _CAN_HAS_FEATURE; + my $meta = $class->cpan_meta; + + foreach my $feature ($meta->features) { + $class->feature($feature->identifier); + } +} + 1; __END__ @@ -140,3 +150,6 @@ are installed. Returns a L<CPAN::Meta> from the contents of MYMETA.json in the bugzilla directory. +=head2 C<preload_features()> + +Attempts to load all features. |