projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add 4 recipe tests
[gitmo/Mouse.git]
/
t
/
990_deprecated
/
001-export_to_level.t
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)";