| line |
true |
false |
branch |
|
88
|
2 |
0 |
unless ($self->split_by) |
|
91
|
0 |
2 |
unless (_STRING($self->split_by) or ref $self->split_by eq 'Regexp') |
|
120
|
0 |
1 |
unless my $input = _INPUT_SCALAR(shift()) |
|
150
|
4 |
3 |
if (wantarray) { } |
|
179
|
0 |
1 |
unless my $sql = _SCALAR(shift()) |
|
183
|
1 |
0 |
if (_STRING($self->split_by)) { } |
|
|
0 |
0 |
elsif (ref $self->split_by eq 'Regexp') { } |
|
218
|
0 |
1 |
unless my $dbh = _INSTANCE(shift(), 'DBI::db') |
|
222
|
0 |
2 |
unless $dbh->do($sql) |
|
235
|
0 |
1 |
unless (defined $_[0]) |
|
238
|
1 |
0 |
unless (ref $_[0]) |
|
239
|
0 |
1 |
unless (-f $_[0] and -r _) |
|
243
|
0 |
1 |
unless open my $file, '<', $_[0] |
|
244
|
0 |
1 |
unless defined(my $buffer = <$file>) |
|
245
|
0 |
1 |
unless close $file |
|
248
|
0 |
0 |
if (_SCALAR($_[0])) |
|
251
|
0 |
0 |
if (_HANDLE($_[0])) |