| line |
true |
false |
branch |
|
51
|
9 |
104 |
if (defined $arg{'capture'}) { } |
|
|
101 |
3 |
elsif (defined $arg{'tokenizer'}) { } |
|
56
|
24 |
89 |
unless (defined $arg{'capture'}) |
|
59
|
25 |
24 |
unless $content =~ /$re/msx |
|
62
|
13 |
21 |
unless defined $-[$inx] |
|
71
|
0 |
113 |
unless defined $arg{'capture'} |
|
74
|
0 |
113 |
unless my $self = $class->SUPER::__new($content, %arg) |
|
81
|
35 |
78 |
if ($self->{'is_named'}) { } |
|
|
59 |
19 |
elsif (not $capture =~ / \A [-+] /msx) { } |
|
182
|
10 |
0 |
if (not exists $self->{'absolute'} and exists $self->{'number'} and $self->{'number'} =~ / \A [-+] /msx) |
|
186
|
2 |
8 |
if $delta > 0 |