line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package DDG::Block::Any; |
2
|
|
|
|
|
|
|
our $AUTHORITY = 'cpan:DDG'; |
3
|
|
|
|
|
|
|
# ABSTRACT: EXPERIMENTAL |
4
|
|
|
|
|
|
|
$DDG::Block::Any::VERSION = '1018'; |
5
|
2
|
|
|
2
|
|
134993
|
use Moo; |
|
2
|
|
|
|
|
19002
|
|
|
2
|
|
|
|
|
11
|
|
6
|
2
|
|
|
2
|
|
2619
|
use Carp; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
312
|
|
7
|
|
|
|
|
|
|
with qw( DDG::Block ); |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# _______ ______ _____ ____ ___ __ __ _____ _ _ _____ _ _ |
10
|
|
|
|
|
|
|
# | ____\ \/ / _ \| ____| _ \|_ _| \/ | ____| \ | |_ _|/ \ | | |
11
|
|
|
|
|
|
|
# | _| \ /| |_) | _| | |_) || || |\/| | _| | \| | | | / _ \ | | |
12
|
|
|
|
|
|
|
# | |___ / \| __/| |___| _ < | || | | | |___| |\ | | |/ ___ \| |___ |
13
|
|
|
|
|
|
|
# |_____/_/\_\_| |_____|_| \_\___|_| |_|_____|_| \_| |_/_/ \_\_____| |
14
|
|
|
|
|
|
|
# |
15
|
|
|
|
|
|
|
# API MIGHT CHANGE |
16
|
|
|
|
|
|
|
# |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
sub request { |
19
|
|
|
|
|
|
|
my ( $self, $request ) = @_; |
20
|
|
|
|
|
|
|
my @results; |
21
|
|
|
|
|
|
|
for (@{$self->plugin_objs}) { |
22
|
|
|
|
|
|
|
my $trigger = $_->[0]; |
23
|
|
|
|
|
|
|
my $plugin = $_->[1]; |
24
|
|
|
|
|
|
|
push @results, $self->handle_request_matches($plugin,$request,0); |
25
|
|
|
|
|
|
|
return @results if $self->return_one && @results; |
26
|
|
|
|
|
|
|
} |
27
|
|
|
|
|
|
|
return @results; |
28
|
|
|
|
|
|
|
} |
29
|
|
|
|
|
|
|
|
30
|
2
|
|
|
2
|
0
|
7
|
sub get_triggers_of_plugin { return; } |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
1; |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
__END__ |