#!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;