| line |
true |
false |
branch |
|
32
|
2 |
1 |
unless @_ |
|
35
|
0 |
1 |
if (@_ == 1) { } |
|
|
0 |
1 |
elsif (@_ == 2) { } |
|
|
1 |
0 |
elsif (scalar(@_) % 2 == 0) { } |
|
38
|
0 |
0 |
unless $self->_check_url($url) |
|
46
|
0 |
0 |
unless $self->_check_keyword($keyword) |
|
47
|
0 |
0 |
unless $self->_check_url($url) |
|
60
|
0 |
2 |
unless ($self->_check_keyword($keyword)) |
|
64
|
0 |
2 |
unless ($self->_check_url($url)) |
|
82
|
5 |
5 |
if (wantarray) { } |
|
99
|
2 |
0 |
$self->_check_keyword($_[0]) ? : |
|
100
|
0 |
2 |
unless @_ |
|
103
|
2 |
0 |
$self->_check_url($_[0]) ? : |
|
110
|
6 |
4 |
$$self{'default_keyword'} ? : |
|
|
10 |
1 |
unless @_ |
|
115
|
1 |
0 |
$self->_check_url($_[0]) ? : |
|
125
|
1 |
0 |
$self->_check_keyword($_[0]) ? : |
|
128
|
0 |
1 |
unless (exists $$self{'keywords'}{$keyword}) |
|
141
|
5 |
0 |
@_ && defined $_[0] ? : |
|
146
|
5 |
0 |
if ($self->keywords) |
|
155
|
4 |
1 |
if ($self->default) |
|
177
|
0 |
5 |
unless (@try) |
|
193
|
10 |
14 |
unless $input =~ /$$r[0]/ |
|
196
|
3 |
11 |
if ($found and $start[2] <= $-[2]) |
|
208
|
4 |
9 |
unless $found |
|
219
|
0 |
9 |
unless (defined $rv) |
|
247
|
0 |
5 |
unless my $kw = shift() |
|
248
|
0 |
5 |
if $kw =~ /\W/ |
|
249
|
0 |
5 |
if $kw =~ /^\d/ |
|
255
|
0 |
5 |
unless my $url = shift() |
|
256
|
0 |
5 |
unless ($url =~ m[^https?://[\w.]+/]) |
|
259
|
0 |
5 |
unless ($url =~ /\%n/) |