blob: 23f1e873c69472513e36a4d516a52d4dba25ec40 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;
package Foo;
use Moose;
with 'MooseX::Role::Matcher';
package main;
my $foo = Foo->new;
SKIP: {
skip "MooseX::Role::Parameterized doesn't support does yet", 1;
ok($foo->does('MooseX::Role::Matcher'),
'role consumption works');
};
ok($foo->can('match'),
'provided method exists');
|
