line |
true |
false |
branch |
111
|
5 |
0 |
$_[0] =~ / \A ["] (.*) ["] \Z /sx ? :
|
116
|
4 |
4 |
!length($_[0]) || $_[0] =~ m[[^\w\_\-/\.\:\#]] ? :
|
126
|
0 |
0 |
$_[0] =~ / \A ['] (.*) ['] \Z /sx ? :
|
199
|
8 |
1 |
defined $_[0] ? :
|
207
|
7 |
1 |
defined $_[0] ? :
|
265
|
11 |
1 |
defined $_[0] ? :
|
272
|
11 |
1 |
defined $_[0] ? :
|
301
|
0 |
0 |
defined $_[0] ? :
|
375
|
4 |
0 |
scalar @_ ? :
|
376
|
2 |
2 |
scalar @_ ? :
|
377
|
0 |
4 |
scalar @_ ? :
|
380
|
0 |
4 |
if length $source < $length
|
384
|
0 |
4 |
if $length < 1
|
389
|
2 |
2 |
if $word_limit
|
392
|
2 |
2 |
if not defined $excerpt or length $excerpt < length $source and !length($excerpt) || abs $length - length($excerpt) > $word_limit
|
544
|
1 |
1 |
if (wantarray) { }
|
|
0 |
1 |
elsif (@values > 1) { }
|
557
|
2 |
2 |
if (ref $escape_spec eq 'CODE') { }
|
|
0 |
2 |
elsif (ref $escape_spec eq 'ARRAY') { }
|
|
2 |
0 |
elsif (not ref $escape_spec) { }
|
563
|
1 |
1 |
unless $String::Escape::Escapes{$_}
|
576
|
1 |
0 |
defined $escape_spec ? :
|
689
|
0 |
2 |
if ref $text
|
695
|
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"//) { }
|