| line |
true |
false |
branch |
|
30
|
48 |
301 |
unless defined $_[1] |
|
38
|
2 |
299 |
unless $type =~ m[ ^ ($discrete) / ($composite) \s* ($params)? $ ]x |
|
41
|
0 |
299 |
unless $$ct{'discrete'} and $$ct{'composite'} |
|
60
|
19 |
3 |
if (0 == @_ % 2) { } |
|
66
|
3 |
19 |
exists $$args{'expects'} ? : |
|
69
|
0 |
22 |
exists $$args{'guesser'} ? : |
|
72
|
3 |
19 |
exists $$args{'depth'} ? : |
|
80
|
27 |
117 |
if (@_) |
|
82
|
1 |
26 |
if defined $$self{'expects'} and ref $$self{'expects'} ne 'ARRAY' |
|
90
|
0 |
61 |
unless my $type = shift() |
|
91
|
1 |
60 |
unless $type =~ m[^.+/.+$] |
|
93
|
5 |
55 |
unless $self->expects |
|
94
|
5 |
33 |
ref $_ ? : |
|
95
|
9 |
24 |
if $type =~ /$regexp/ |
|
102
|
26 |
31 |
if (@_) |
|
104
|
1 |
25 |
if defined $$self{'depth'} and $$self{'depth'} =~ /\D/ |
|
112
|
27 |
56 |
if (@_) |
|
114
|
1 |
4 |
if defined $$self{'guesser'} and ref $$self{'guesser'} ne 'CODE' and ref $$self{'guesser'} ne 'ARRAY' |
|
124
|
0 |
51 |
unless my $ref_data = shift() |
|
130
|
2 |
49 |
if (ref $routine eq 'CODE') { } |
|
135
|
2 |
47 |
if (ref $routine eq 'ARRAY') { } |
|
141
|
50 |
0 |
unless $klass =~ /:/ |
|
144
|
49 |
1 |
if $type and $type ne 'application/octet-stream' |
|
158
|
195 |
8 |
if (not @MIME::Expander::EnabledPlugins) { } |
|
162
|
1 |
7 |
unless $enable =~ /:/ |
|
164
|
2 |
6 |
if ($available eq $enable) |
|
169
|
6 |
2 |
unless $klass |
|
173
|
24 |
173 |
if ($klass->is_acceptable($self->regulate_type($type))) |
|
183
|
0 |
45 |
unless my $ref_data = shift() |
|
187
|
45 |
0 |
if (not $type or $type eq 'application/octet-stream') |
|
191
|
3 |
42 |
if ('MIME::Expander::Plugin::MessageRFC822'->is_acceptable($self->regulate_type($type))) { } |
|
215
|
1 |
8 |
if (blessed $data and $data->isa('Email::Simple')) { } |
|
218
|
4 |
4 |
ref $data eq 'SCALAR' ? : |
|
233
|
28 |
18 |
if ($limit or $self->is_expected($type) or not $plugin) { } |
|
235
|
28 |
0 |
if ref $callback eq 'CODE' |
|
245
|
22 |
24 |
if ($bound <= $ptr) |
|
246
|
2 |
20 |
if ($self->depth and $self->depth <= $level) |