Commit | Line | Data |
4e24a2c7 |
1 | #!/usr/bin/perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More tests => 3; |
5 | |
6 | BEGIN{ |
e57a5068 |
7 | $SIG{__WARN__} = sub { $_[0] =~ /deprecated/ or warn @_ }; |
8 | |
4e24a2c7 |
9 | package Foo; |
10 | use Mouse; |
11 | |
12 | sub import{ |
13 | shift; |
14 | Mouse->export_to_level(1, @_); |
15 | } |
16 | $INC{'Foo.pm'}++; |
17 | } |
18 | |
19 | package A; |
20 | use Test::More; |
21 | |
22 | use Foo qw(has); |
23 | |
24 | ok defined(&has), "export_to_level (DEPRECATED)"; |
25 | |
26 | |
27 | ok!defined(&Bar::has), "export (DEPRECATED)"; |
28 | Mouse->export('Bar', 'has'); |
29 | ok defined(&Bar::has), "export (DEPRECATED)"; |