##!/usr/bin/perl
use strict;
use warnings;
use Test::More;
{
package My::Test;
use strict;
use warnings;
use mop;
sub foo { 'My::Test::foo' }
class Foo {
method foo { "calling " . foo() }
}
}
my $foo = My::Test::Foo->new;
isa_ok($foo, 'My::Test::Foo');
is($foo->foo, 'calling My::Test::foo', '... methods and subs dont clash');
done_testing;