| line |
true |
false |
branch |
|
211
|
0 |
6 |
if ref $class |
|
223
|
0 |
12 |
if exists $args{$key} |
|
229
|
9 |
69 |
exists $args{$key} ? : |
|
234
|
2 |
4 |
if (__instance($re, 'PPIx::Regexp::Tokenizer')) { } |
|
|
3 |
1 |
elsif (__instance($re, 'PPIx::Regexp::Element')) { } |
|
|
0 |
1 |
elsif ('ARRAY' eq ref $re) { } |
|
|
0 |
1 |
elsif (ref $re and not __instance($re, 'PPI::Element')) { } |
|
|
0 |
1 |
elsif ($self->{'tokens'}) { } |
|
244
|
0 |
0 |
unless my $tokenizer_class = __choose_tokenizer_class($re, \%args) |
|
247
|
0 |
0 |
unless __instance($re, "PPI::Element") |
|
249
|
0 |
0 |
unless $self->{'object'} = $tokenizer_class->new($re, %args) |
|
253
|
1 |
0 |
unless __instance($re, "PPI::Element") |
|
255
|
0 |
1 |
unless $self->{'object'} = "PPIx::Regexp"->new($re, %args) |
|
278
|
2 |
3 |
$self->{'test'} ? : |
|
281
|
0 |
5 |
if "ARRAY" eq ref $self->{'object'} |
|
328
|
40 |
156 |
if (&blessed($item)) |
|
331
|
0 |
196 |
if (not defined $item) { } |
|
|
41 |
155 |
elsif ('ARRAY' eq ref $item) { } |
|
|
48 |
107 |
elsif (&looks_like_number($item)) { } |
|
348
|
0 |
0 |
defined $version ? : |
|
370
|
20 |
0 |
unless $self->{'ppi'} and $elem->can("ppi") |
|
394
|
22 |
0 |
unless defined $dflt |
|
396
|
0 |
22 |
unless defined $elem |
|
397
|
11 |
11 |
if ("ARRAY" eq ref $elem) |
|
400
|
0 |
11 |
unless not $self->{'significant'} |
|
402
|
0 |
11 |
$rslt eq '' ? : |
|
404
|
0 |
11 |
unless &blessed($elem) |
|
411
|
0 |
1 |
unless not $self->{'significant'} or $elem->significant |
|
415
|
0 |
7 |
unless not $self->{'significant'} or $token->significant |
|
425
|
6 |
0 |
unless defined(my $val = $self->{$attr}) |
|
428
|
0 |
0 |
if "ARRAY" eq ref $val and not @{$val;} |
|
438
|
3 |
0 |
defined $value ? : |
|
|
9 |
3 |
$value ? : |
|
448
|
0 |
1 |
if $mods{'match_semantics'} |
|
450
|
1 |
0 |
$mods{$modifier} ? : |
|
453
|
1 |
0 |
if @accum |
|
460
|
0 |
0 |
if (defined $_) { } |
|
461
|
0 |
0 |
if $_ == "Inf" |
|
468
|
0 |
0 |
if wantarray |
|
475
|
0 |
0 |
if (defined $_) { } |
|
476
|
0 |
0 |
if $_ == "Inf" |
|
483
|
0 |
0 |
if wantarray |
|
490
|
0 |
1 |
unless not $self->{'significant'} or $elem->significant |
|
501
|
0 |
9 |
unless not $self->{'significant'} or $token->significant |
|
509
|
0 |
0 |
unless my(@expl) = $self->explain |
|
511
|
0 |
0 |
if 1 == @expl |
|
514
|
0 |
0 |
unless wantarray |
|
528
|
0 |
1 |
if $dumper->{'tokens'} |
|
530
|
0 |
1 |
unless not $dumper->{'significant'} or $self->significant |
|
552
|
0 |
3 |
if $dumper->{'tokens'} |
|
554
|
0 |
3 |
unless not $dumper->{'significant'} or $self->significant |
|
558
|
0 |
3 |
if $dumper->{'short'} |
|
561
|
1 |
1 |
$dumper->{'verbose'} ? : |
|
|
2 |
1 |
if $self->isa("PPIx::Regexp") |
|
568
|
0 |
3 |
if $dumper->{'locations'} |
|
570
|
0 |
3 |
if ($dumper->{'width'}) |
|
576
|
1 |
2 |
if $dumper->{'perl_version'} |
|
578
|
0 |
3 |
if (defined(my $err = $self->error)) { } |
|
582
|
0 |
3 |
if $dumper->{'explain'} |
|
596
|
0 |
2 |
unless not $dumper->{'significant'} or $self->significant |
|
605
|
0 |
2 |
if (defined(my $err = $self->error)) |
|
612
|
0 |
2 |
if ($dumper->{'width'}) |
|
620
|
0 |
2 |
if ($dumper->{'perl_version'}) |
|
637
|
1 |
2 |
unless defined $val |
|
639
|
2 |
0 |
if $val =~ / \A [0-9]+ \z /msx |
|
658
|
0 |
5 |
unless not $dumper->{'significant'} or $self->significant |
|
663
|
11 |
4 |
@elem ? : |
|
667
|
0 |
5 |
if $dumper->{'short'} |
|
672
|
0 |
5 |
if $dumper->{'locations'} |
|
675
|
2 |
3 |
if $dumper->{'perl_version'} |
|
677
|
0 |
5 |
if ($dumper->{'width'}) |
|
682
|
3 |
2 |
if ($dumper->{'verbose'}) |
|
684
|
6 |
3 |
unless $self->can($method) |
|
690
|
0 |
6 |
unless $self->can($method) |
|
691
|
2 |
4 |
if $self->$method |
|
693
|
0 |
3 |
if $self->isa("PPIx::Regexp::Structure::Modifier") |
|
701
|
10 |
5 |
defined $method ? : |
|
|
0 |
15 |
unless my $ele = defined $method ? $self->$method : $self |
|
703
|
0 |
15 |
if (defined(my $err = $ele->error)) |
|
711
|
0 |
5 |
if $dumper->{'explain'} and not defined $self->error |
|
727
|
0 |
2 |
unless not $dumper->{'significant'} or $self->significant |
|
735
|
2 |
0 |
if ($dumper->{'verbose'}) |
|
737
|
4 |
0 |
unless $self->can($method) |
|
743
|
0 |
2 |
if ($dumper->{'width'}) |
|
791
|
0 |
20 |
unless not $dumper->{'significant'} or $self->significant |
|
796
|
0 |
20 |
if $dumper->{'short'} |
|
801
|
0 |
20 |
if $dumper->{'locations'} |
|
808
|
0 |
20 |
if @ppi = $dumper->_ppi($self) |
|
811
|
0 |
0 |
if ($dumper->{'locations'}) { } |
|
812
|
0 |
0 |
unless s/ ( [0-9]+ \s+ \] ) /$1 /gmsx |
|
819
|
0 |
20 |
if ($dumper->{'width'}) |
|
825
|
4 |
16 |
if $dumper->{'perl_version'} |
|
827
|
0 |
20 |
if (defined(my $err = $self->error)) { } |
|
833
|
8 |
8 |
if ($dumper->{'ordinal'} and $self->can("ordinal") and defined(my $ord = $self->ordinal)) |
|
838
|
9 |
11 |
if ($dumper->{'verbose'}) |
|
840
|
0 |
9 |
if ($self->isa("PPIx::Regexp::Token::Reference")) |
|
842
|
0 |
0 |
unless defined(my $val = $self->$method) |
|
850
|
16 |
11 |
if $self->can($method) and $self->$method |
|
855
|
0 |
9 |
if $self->can("ppi") |
|
858
|
1 |
8 |
if ($self->isa("PPIx::Regexp::Token::Modifier") or $self->isa("PPIx::Regexp::Token::GroupType::Modifier")) |
|
870
|
0 |
20 |
if $dumper->{'explain'} |
|
882
|
0 |
14 |
unless not $dumper->{'significant'} or $self->significant |
|
884
|
5 |
9 |
unless @nav |
|
891
|
0 |
14 |
if (defined(my $err = $self->error)) { } |
|
898
|
0 |
14 |
if ($dumper->{'perl_version'}) |
|
908
|
0 |
14 |
if ($dumper->{'width'}) |
|
916
|
14 |
0 |
if ($dumper->{'verbose'}) |
|
921
|
0 |
42 |
unless $self->can($method) |
|
922
|
21 |
21 |
$self->$method ? : |
|
927
|
0 |
14 |
if $self->can("ppi") |