| blib/lib/Test/VCR/LWP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 6 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 177 | 4 | 7 | 0 | $$self{'requests'} ||= do { local $/; die "Couldn't open $$self{'tape'}: $!\n" unless open my $fh, '<', $$self{'tape'}; my $perl = <$fh>; die "Couldn't close $$self{'tape'}: $!\n" unless close $fh; our $VAR1; eval "$perl"; die $@ if $@; $VAR1 } |
| 239 | 6 | 2 | 0 | $args{'tape'} ||= do { my $caller = (caller 1)[3]; $caller =~ s/^.*:://; if ($caller eq '__ANON__') { croak('tape name must be supplied if called from anonymous subroutine'); } ; 'File::Spec'->catfile($FindBin::Bin, "$caller.tape") } |