File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	36	41	87.8

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

use Test::Stream::Capabilities();
use Test::Stream::Plugin qw/import/;

use Carp qw/croak/;

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

    @args = (qw/CAN_THREAD CAN_FORK/) unless @args;

    for my $arg (@args) {
        croak "$arg is not a valid capabilties check"
            unless $arg =~ m/^CAN_/ && Test::Stream::Capabilities->can($arg);

        my $const = Test::Stream::Capabilities::get_const($arg);
        no strict 'refs';
        *{"$caller->[0]\::$arg"} = $const;
    }
}

1;

__END__