File Coverage

lib/Measure/Everything/Adapter.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	22	54.5

package Measure::Everything::Adapter;
use strict;
use warnings;
use Module::Runtime qw(use_module);

# ABSTRACT: Tell Measure::Everything where to send the stats

sub set {
    my ($self, $adapter, @args) = @_;

    my $module_name;
    if ( $adapter =~ s/^\+// ) {
        $module_name = $adapter;
    } else {
        $module_name = 'Measure::Everything::Adapter::'.$adapter;
    }

    $Measure::Everything::global_stats = use_module($module_name)->new(@args);
}

1;

__END__