#!/usr/bin/perl -T
use strict;
use warnings;

use Test::More;
use Test::Moose;

use Test::Magpie qw( when mock verify );

{
    package Role;
    use Moose::Role;
}

subtest 'Roles' => sub {
    my $mock = mock(
        with => 'Role'
    );
    does_ok($mock, 'Role');

    $mock->method;

};

done_testing;