trAvis - MANAGER
Edit File: 018_methods.t
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 6; my $test1 = Mouse::Meta::Class->create_anon_class; $test1->add_method( 'foo1', sub { } ); my $t1 = $test1->new_object; my $t1_am = $t1->meta->get_method('foo1')->associated_metaclass; ok( $t1_am, 'associated_metaclass is defined' ); isa_ok( $t1_am, 'Mouse::Meta::Class', 'associated_metaclass is correct class' ); like( $t1_am->name(), qr/::__ANON__::/, 'associated_metaclass->name looks like an anonymous class' ); { package Test2; use Mouse; sub foo2 { } } my $t2 = Test2->new; my $t2_am = $t2->meta->get_method('foo2')->associated_metaclass; ok( $t2_am, 'associated_metaclass is defined' ); isa_ok( $t2_am, 'Mouse::Meta::Class', 'associated_metaclass is correct class' ); is( $t2_am->name(), 'Test2', 'associated_metaclass->name is Test2' );