File Coverage

blib/lib/Test/Interface.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	31	34	91.1

package Test::Interface;

our $VERSION = '0.02';


use strict;
use warnings;


use Test::Builder;
use Role::Inspector;


use Exporter qw/import/;
our @EXPORT = qw/interface_ok/;



my $Test = Test::Builder->new;

sub interface_ok($$;$) {
    my $thing     = shift;
    my $interface = shift;
    my $test_name = shift // "$thing does interface $interface";

    if (Role::Inspector->does_role( $thing, $interface ) ) {
        return $Test->ok( 1, $test_name )
    }

    $Test->diag("$thing does not implement the $interface interface\n");

    return $Test->ok( 0, $test_name )
}

1;