| line |
true |
false |
branch |
|
30
|
1 |
0 |
if CORE::chomp $string |
|
35
|
1 |
0 |
if CORE::chop $string |
|
46
|
1 |
1 |
$string =~ /$pattern/ ? : |
|
|
2 |
2 |
if 'Regexp' eq ref $pattern |
|
49
|
1 |
1 |
CORE::index($string, $pattern) < 0 ? : |
|
|
2 |
0 |
if defined $pattern |
|
62
|
2 |
4 |
unless defined $start |
|
92
|
1 |
3 |
defined $flags ? : |
|
93
|
2 |
2 |
if $find and 'Regexp' ne ref $find |
|
108
|
2 |
8 |
unless defined $start |
|
122
|
2 |
3 |
if $pattern and not ref $pattern |
|
123
|
3 |
2 |
unless defined $limit |
|
129
|
1 |
0 |
if $string =~ s/\s{2,}/ /g |
|
134
|
1 |
0 |
if $string =~ s/\b(\w)/\U$1\E/g |
|
139
|
1 |
0 |
if $string =~ s/^\s+|\s+$//g |