Lines 19-24
package Koha::Plugins;
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
|
|
22 |
use Array::Utils qw(array_minus); |
22 |
use Class::Inspector; |
23 |
use Class::Inspector; |
23 |
use List::MoreUtils qw(any); |
24 |
use List::MoreUtils qw(any); |
24 |
use Module::Load::Conditional qw(can_load); |
25 |
use Module::Load::Conditional qw(can_load); |
Lines 32-38
use Koha::Plugins::Methods;
Link Here
|
32 |
BEGIN { |
33 |
BEGIN { |
33 |
my $pluginsdir = C4::Context->config("pluginsdir"); |
34 |
my $pluginsdir = C4::Context->config("pluginsdir"); |
34 |
my @pluginsdir = ref($pluginsdir) eq 'ARRAY' ? @$pluginsdir : $pluginsdir; |
35 |
my @pluginsdir = ref($pluginsdir) eq 'ARRAY' ? @$pluginsdir : $pluginsdir; |
35 |
push( @INC, @pluginsdir ); |
36 |
push @INC, array_minus(@pluginsdir, @INC) ; |
36 |
pop @INC if $INC[-1] eq '.'; |
37 |
pop @INC if $INC[-1] eq '.'; |
37 |
} |
38 |
} |
38 |
|
39 |
|