1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 5;
do {
package Class;
use Mouse;
no Mouse;
package Child;
use Mouse;
extends 'Class';
no Mouse;
};
ok(!Child->can('extends'), "extends keyword is unimported");
ok(!Class->can('extends'), "extends keyword is unimported");
do {
package Foo;
use Mouse 'has';
sub extends { "good" }
no Mouse;
};
ok(!Foo->can('has'), "has keyword is unimported");
ok(Foo->can('extends'), "extends method is NOT unimported");
is(eval { Foo->extends }, "good", "extends method is ours, not the extends keyword");
|
