| blib/lib/Test/VCR/LWP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 6 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 170 | 1 | 5 | 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 } |
| 228 | 3 | 1 | 0 | $args{'tape'} ||= do { my $caller = (caller 1)[3]; $caller =~ s/^.*:://; 'File::Spec'->catfile($FindBin::Bin, "$caller.tape") } |