4 use Test::More tests => 3;
7 $SIG{__WARN__} = sub { $_[0] =~ /deprecated/ or warn @_ };
14 Mouse->export_to_level(1, @_);
24 ok defined(&has), "export_to_level (DEPRECATED)";
27 ok!defined(&Bar::has), "export (DEPRECATED)";
28 Mouse->export('Bar', 'has');
29 ok defined(&Bar::has), "export (DEPRECATED)";