| line |
true |
false |
branch |
|
49
|
10 |
1 |
unless (defined wantarray) |
|
98
|
7 |
27 |
if (@_) |
|
114
|
2 |
9 |
unless (exists $$self{'using_block'}) |
|
117
|
0 |
11 |
unless exists $$self{'ensure_block'} |
|
123
|
0 |
27 |
if verbose |
|
132
|
1 |
18 |
if (defined $self->rollback_block) |
|
161
|
15 |
17 |
if (@_) |
|
169
|
5 |
27 |
if (defined $self->sanity_block) |
|
170
|
2 |
3 |
unless $self->sanity_block->(@_) |
|
184
|
7 |
2 |
unless ($self->_do_pre_using(@_)) |
|
189
|
0 |
7 |
if (wantarray) { } |
|
|
0 |
7 |
elsif (defined wantarray) { } |
|
197
|
3 |
3 |
if ($self->ensure_block->(@_)) |
|
211
|
5 |
5 |
if (not $self->_do_pre_using($arg)) { } |
|
221
|
5 |
0 |
if ($self->ensure_block->($arg)) { } |
|
233
|
0 |
0 |
unless my $fh = 'IO::File'->new($_[0]) |
|
239
|
0 |
0 |
unless my $fh = 'IO::File'->new(">$_[0]") |
|
245
|
0 |
0 |
unless my $fh = 'IO::File'->new(">>$_[0]") |
|
252
|
0 |
0 |
unless (ref $fh) |
|
256
|
0 |
0 |
if /$re/ |