line |
true |
false |
branch |
18
|
0 |
2 |
'Keyword::Simple'->VERSION == 0.01 ? :
|
|
0 |
34 |
'Keyword::Simple'->VERSION == 0.01 ? :
|
51
|
240 |
399 |
if (CORE::ref $bite and $$ref =~ /\A($bite)/msu) { }
|
|
399 |
0 |
elsif (not CORE::ref $bite) { }
|
59
|
1 |
398 |
unless substr($$ref, 0, length $bite) eq $bite
|
78
|
5 |
314 |
$X == 2 ? :
|
81
|
5 |
314 |
$X == 2 ? :
|
113
|
3 |
31 |
$self->_peek_version ? :
|
142
|
31 |
30 |
$with_version ? :
|
144
|
3 |
58 |
if $ver
|
150
|
3 |
0 |
$with_version ? :
|
152
|
0 |
3 |
if $ver
|
159
|
95 |
0 |
wantarray ? :
|
172
|
1 |
7 |
if ($self->_peek(qr/\(/u)) { }
|
187
|
1 |
7 |
if ($self->_peek(qr/:/u))
|
200
|
0 |
95 |
if $self->done
|
210
|
4 |
91 |
if $self->_peek_version
|
216
|
95 |
0 |
if ($self->known_relationships)
|
225
|
7 |
88 |
if ($self->_peek(qr/:/u))
|
233
|
21 |
74 |
$self->_peek(qr/;/u) ? :
|
256
|
6 |
153 |
if $bareword =~ /^::(.+)$/u
|
257
|
130 |
23 |
if $caller eq 'main'
|
258
|
4 |
19 |
if $bareword =~ /::/u
|
259
|
15 |
4 |
if not defined $rel or $self->qualify_relationship($rel)
|
268
|
65 |
30 |
if ($kw eq 'class') { }
|
|
19 |
11 |
elsif ($kw eq 'role') { }
|
|
2 |
9 |
elsif ($kw eq 'library') { }
|
295
|
0 |
94 |
unless $self->traits
|
|
7 |
87 |
if (my(%traits) = %{{} unless $self->traits;})
|
305
|
7 |
1 |
unless defined $traits{$trait}
|