t/000-load.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/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;
ok($foo->does('MooseX::Role::Matcher'),
   'role consumption works');
ok($foo->can('match'),
   'provided method exists');