Skip to content

Instantly share code, notes, and snippets.

@tokuhirom
Created August 29, 2008 02:57
Show Gist options
  • Save tokuhirom/7886 to your computer and use it in GitHub Desktop.
Save tokuhirom/7886 to your computer and use it in GitHub Desktop.
# THIS TEST DOESN'T PASS WITH PERL 5.10
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use Test::Exception;
use Moose::Meta::Class;
use Moose::Util;
use lib 't/lib', 'lib';
use Role::Child;
_test('Role::Parent', 'meth1,meth2');
_test('Role::Child', 'aliased_meth1,meth1,meth2');
sub _test {
my ($role, $methods) = @_;
is join(',', sort $role->meta->get_method_list), $methods;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment