File Coverage

blib/lib/Test/Stream/Plugin/Class.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	37	38	97.3

package Test::Stream::Plugin::Class;
use strict;
use warnings;

use Test::Stream::Plugin qw/import/;

use Test::Stream::Util qw/pkg_to_file/;

sub load_ts_plugin {
    my $class = shift;
    my ($caller, $load) = @_;

    die "No module specified for 'Class' plugin at $caller->[1] line $caller->[2].\n"
        unless $load;

    my $file = pkg_to_file($load);
    my $ok = eval qq|# line $caller->[2] "$caller->[1]"\nrequire \$file; 1|;
    die $@ unless $ok;

    no strict 'refs';
    *{$caller->[0] . '::CLASS'} = \$load;
    *{$caller->[0] . '::CLASS'} = sub { $load };
}

1;

__END__