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