File Coverage

tlib/t/Utils.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition	4	5	80.0
subroutine	4	4	100.0
pod	0	1	0.0
total	25	28	89.2

package t::Utils;

use warnings;
use strict;

use Test::More;

require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = (
    @Test::More::EXPORT,
    qw/does_ok/,
);

sub does_ok {
    my ($obj, $role, $ver, $name) = @_;
    my $B = Test::More->builder;

    $ver    ||= 1;
    $name   ||= "$obj DOES $role";

    my $does = eval { $obj->DOES($role) };
    $B->is_eq($does, $ver, $name)
        or $B->diag("\$\@: $@");
}

1;