#!perl -w
BEGIN{ $^P = 0x10 | 0x200 }
use Test::More;
sub DB::DB {}
{
package Foo;
use Mouse;
__PACKAGE__->meta->add_method(bar => sub{ __LINE__ });
}
if(Mouse::Util::MOUSE_XS){
is $DB::sub{'Foo::bar'}, sprintf('%s:%d-%d', __FILE__, Foo->bar, Foo->bar),
'%DB::sub updated';
}
else{
pass 'under Mouse::PurePerl';
}
done_testing;