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

package Test::Stream::Bundle;
use strict;
use warnings;

use Carp qw/croak/;

use Test::Stream::Exporter qw/import default_export/;

# Here we are exporting a sub called 'import' that is not our 'import' method.
default_export import => sub {
    my $class = shift;
    my @caller = caller;

    my $bundle = $class;
    $bundle =~ s/^Test::Stream::Bundle::/-/;

    require Test::Stream;
    Test::Stream->load(\@caller, $bundle, @_);
};

no Test::Stream::Exporter;

1;

__END__