The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/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');