| 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 (builtin::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 builtin::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")
|