File Coverage

blib/lib/Test/Stream/Bundle.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Test::Stream::Bundle;
2 97     97   981 use strict;
  97         174  
  97         2457  
3 97     97   473 use warnings;
  97         168  
  97         2574  
4              
5 97     97   502 use Carp qw/croak/;
  97         174  
  97         4537  
6              
7 97     97   579 use Test::Stream::Exporter;
  97         161  
  97         762  
8              
9             default_export import => sub {
10 1     1   13 my $class = shift;
11 1         7 my @caller = caller;
12              
13 1         4 my $bundle = $class;
14 1         8 $bundle =~ s/^Test::Stream::Bundle::/-/;
15              
16 1         8 require Test::Stream;
17 1         8 Test::Stream->load(\@caller, $bundle, @_);
18             };
19              
20 97     97   609 no Test::Stream::Exporter;
  97         200  
  97         501  
21              
22             1;
23              
24             __END__