return bless( $args, $class );
}
+=head2 call
+
+Calls a plugin method for all enabled plugins
+
+ @responses = Koha::Plugins->call($method, @args)
+
+=cut
+
+sub call {
+ my ($class, $method, @args) = @_;
+
+ if (C4::Context->preference('UseKohaPlugins') && C4::Context->config('enable_plugins')) {
+ my @plugins = $class->new({ enable_plugins => 1 })->GetPlugins({ method => $method });
+ my @responses;
+ foreach my $plugin (@plugins) {
+ my $response = $plugin->$method(@args);
+ push @responses, $response;
+ }
+
+ return @responses;
+ }
+}
+
=head2 GetPlugins
This will return a list of all available plugins, optionally limited by
1;
__END__
+=head1 AVAILABLE HOOKS
+
+=head2 after_hold_create
+
+=head3 Parameters
+
+=over
+
+=item * C<$hold> - A Koha::Hold object that has just been inserted in database
+
+=back
+
+=head3 Return value
+
+None
+
+=head3 Example
+
+ sub after_hold_create {
+ my ($self, $hold) = @_;
+
+ warn "New hold for borrower " . $hold->borrower->borrowernumber;
+ }
+
=head1 AUTHOR
Kyle M Hall <kyle.m.hall@gmail.com>
use FindBin qw($Bin);
use Module::Load::Conditional qw(can_load);
use Test::MockModule;
-use Test::More tests => 51;
+use Test::More tests => 52;
use C4::Context;
use Koha::Database;
my $schema = Koha::Database->new->schema;
+subtest 'call() tests' => sub {
+ plan tests => 2;
+
+ $schema->storage->txn_begin;
+ # Temporarily remove any installed plugins data
+ Koha::Plugins::Methods->delete;
+
+ my $plugins = Koha::Plugins->new({ enable_plugins => 1 });
+ my @plugins = $plugins->InstallPlugins;
+ foreach my $plugin (@plugins) {
+ $plugin->enable();
+ }
+
+ my @responses = Koha::Plugins->call('check_password', { password => 'foo' });
+
+ my $expected = [ { error => 1, msg => 'PIN should be four digits' } ];
+ is_deeply(\@responses, $expected, 'call() should return all responses from plugins');
+
+ # Make sure parameters are correctly passed to the plugin method
+ my @responses = Koha::Plugins->call('check_password', { password => '1234' });
+
+ my $expected = [ { error => 0 } ];
+ is_deeply(\@responses, $expected, 'call() should return all responses from plugins');
+
+ $schema->storage->txn_rollback;
+};
+
subtest 'GetPlugins() tests' => sub {
plan tests => 2;