| line |
true |
false |
branch |
|
194
|
1 |
4 |
unless (exists $value_of{'split'}) |
|
197
|
0 |
5 |
exists $value_of{'chomp'} ? : |
|
|
1 |
4 |
exists $value_of{'limit'} ? : |
|
200
|
0 |
5 |
if exists $value_of{'token'} |
|
201
|
2 |
3 |
if (exists $value_of{'trim'}) |
|
202
|
1 |
1 |
if exists $value_of{'limit'} |
|
206
|
1 |
3 |
if exists $value_of{'fields'} |
|
223
|
24 |
6 |
unless @_ |
|
226
|
5 |
1 |
unless 'Regexp' eq ref $split |
|
244
|
10 |
6 |
unless @_ |
|
247
|
1 |
5 |
unless defined $unless |
|
248
|
2 |
4 |
unless 'Regexp' eq ref $unless or 'Regexp::Common' eq ref $unless |
|
268
|
21 |
7 |
unless @_ |
|
287
|
11 |
8 |
unless @_ |
|
290
|
2 |
6 |
unless ($limit =~ /^-?\d+$/) |
|
311
|
0 |
2 |
unless @_ |
|
314
|
2 |
0 |
$limit ? : |
|
344
|
14 |
14 |
unless @_ |
|
347
|
13 |
1 |
if (defined $token) |
|
348
|
1 |
12 |
if ($token =~ $self->split) |
|
372
|
10 |
0 |
if (defined(my $unless = $self->unless)) |
|
383
|
7 |
3 |
$self->chomp ? : |
|
387
|
1 |
9 |
if 0 =~ /$split/ |
|
390
|
3 |
7 |
unless ($self->chomp) |
|
393
|
9 |
0 |
if (@records) |
|
402
|
15 |
23 |
unless (-1 eq index($record, $token)) |
|
406
|
1 |
9 |
if (my $field = $self->_fields) |
|
414
|
10 |
1 |
unless @_ |
|
417
|
0 |
1 |
if (defined(my $token = $self->token)) |
|
429
|
7 |
5 |
if (defined($token = $self->token)) |
|
430
|
1 |
6 |
unless -1 eq index($data, $token) |
|
435
|
10 |
17 |
if (-1 eq index($data, $curr_token)) |
|
441
|
10 |
1 |
if (defined $token) |