| line |
true |
false |
branch |
|
45
|
116 |
544 |
if defined $arg{$key} |
|
54
|
0 |
2 |
-f $source ? : |
|
|
58 |
2 |
__instance($source, 'PPI::Element') ? : |
|
|
0 |
60 |
_isa($source, 'PPIx::QuoteLike') ? : |
|
|
52 |
8 |
unless $self->{'object'} = _isa($source, "PPIx::QuoteLike") ? $source : "PPIx::QuoteLike"->new($source, __instance($source, "PPI::Element") ? () : ("location", [1, 1, 1, 1, -f $source ? $source : undef]), map({$_, $arg{$_};} "encoding")) |
|
70
|
6 |
1 |
if (_isa($src, "PPI::Element") and my $loc = $src->location) |
|
77
|
2 |
0 |
if defined $rslt |
|
79
|
0 |
0 |
unless defined $none |
|
91
|
0 |
7 |
if ($self->{'tokens'}) { } |
|
94
|
0 |
0 |
unless $obj->find("PPIx::QuoteLike::Token") |
|
112
|
0 |
17 |
if $self->{'significant'} and not $elem->significant |
|
115
|
0 |
0 |
__instance($elem, 'PPIx::QuoteLike::Token') ? : |
|
|
0 |
17 |
$self->{'locations'} ? : |
|
129
|
0 |
17 |
if @ppi = $self->_ppi($elem) |
|
132
|
0 |
0 |
if ($self->{'locations'}) { } |
|
133
|
0 |
0 |
unless s/ ( [0-9]+ \s+ \] ) /$1 /gmsx |
|
165
|
0 |
24 |
if $self->{'short'} |
|
178
|
0 |
1 |
unless $doc = "PPI::Document"->new($path) |
|
181
|
0 |
1 |
unless ref $path |
|
183
|
0 |
1 |
unless $doc->find("PPI::Token") |
|
190
|
6 |
12 |
if defined $a |
|
200
|
14 |
14 |
unless defined(my $val = $obj->$attr) |
|
210
|
0 |
21 |
unless my(@val) = map({$_->content;} grep({$_->significant;} $obj->$method(@arg))) |
|
218
|
3 |
64 |
unless &Scalar::Util::blessed($arg) |
|
226
|
3 |
21 |
unless $self->{'perl_version'} |
|
229
|
0 |
21 |
defined $remov ? : |
|
236
|
17 |
0 |
unless $self->{'ppi'} and $elem->can("ppi") |
|
260
|
0 |
31 |
if ref $val |
|
262
|
0 |
31 |
unless defined $val |
|
264
|
14 |
17 |
if &Scalar::Util::looks_like_number($val) |
|
266
|
0 |
17 |
if ($val =~ / \A << /msx) |
|
280
|
0 |
2 |
if (&Scalar::Util::blessed($path)) { } |
|
|
1 |
1 |
elsif (my $ref = ref $path) { } |
|
281
|
0 |
0 |
if (_isa($path, 'PPI::Node')) { } |
|
|
0 |
0 |
elsif (_isa($path, 'PPI::Element')) { } |
|
283
|
0 |
0 |
'PPIx::QuoteLike'->handles($_) ? : |
|
285
|
0 |
0 |
unless $path->find("PPI::Token") |
|
287
|
0 |
0 |
if "PPIx::QuoteLike"->handles($path) |
|
291
|
0 |
1 |
unless "SCALAR" eq $ref |
|
295
|
1 |
0 |
unless -f $path |
|
297
|
0 |
0 |
unless -T _ |
|
299
|
0 |
0 |
unless ($path =~ / [.] (?: (?i: pl ) | pm | t ) \z /msx) |
|
300
|
0 |
0 |
unless open my $fh, "<", $path |
|
302
|
0 |
0 |
unless defined(local $_ = readline $fh) |
|
305
|
0 |
0 |
unless / perl /msx |
|
317
|
3 |
21 |
unless $self->{'variables'} |
|
319
|
15 |
6 |
unless my(@var) = $elem->variables |