| line |
true |
false |
branch |
|
127
|
5 |
0 |
$_[0] =~ / \A ["] (.*) ["] \Z /sx ? : |
|
132
|
4 |
4 |
!length($_[0]) || $_[0] =~ m[[^\w\_\-/\.\:\#]] ? : |
|
142
|
0 |
0 |
$_[0] =~ / \A ['] (.*) ['] \Z /sx ? : |
|
243
|
8 |
1 |
defined $_[0] ? : |
|
251
|
7 |
1 |
defined $_[0] ? : |
|
274
|
11 |
1 |
defined $_[0] ? : |
|
281
|
11 |
1 |
defined $_[0] ? : |
|
295
|
0 |
0 |
defined $_[0] ? : |
|
373
|
4 |
0 |
scalar @_ ? : |
|
374
|
2 |
2 |
scalar @_ ? : |
|
377
|
0 |
4 |
if length $source < $length |
|
381
|
0 |
4 |
if $length < 1 |
|
386
|
2 |
2 |
if $word_limit |
|
389
|
2 |
2 |
if not defined $excerpt or length $excerpt < length $source and !length($excerpt) || abs $length - length($excerpt) > $word_limit |
|
539
|
1 |
1 |
if (wantarray) { } |
|
|
0 |
1 |
elsif (@values > 1) { } |
|
552
|
2 |
2 |
if (ref $escape_spec eq 'CODE') { } |
|
|
0 |
2 |
elsif (ref $escape_spec eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (not ref $escape_spec) { } |
|
560
|
1 |
1 |
unless $String::Escape::Escapes{$_} |
|
571
|
1 |
0 |
defined $escape_spec ? : |
|
684
|
0 |
2 |
if ref $text |
|
690
|
4 |
9 |
if ($text =~ s/\A(?: ([^\"\s\\]+) | \\(.) )//mx) { } |
|
|
4 |
5 |
elsif ($text =~ s/\A"((?:[^\"\\]|\\.)*)"//mx) { } |
|
|
5 |
0 |
elsif ($text =~ s/\A\s+//m) { } |
|
|
0 |
0 |
elsif ($text =~ s/\A"//) { } |