fixes broken link in pod
[gitmo/Moo.git] / t / no-moo.t
1 use strictures 1;
2 use Test::More;
3
4 {
5   package Spoon;
6
7   use Moo;
8
9   no warnings 'redefine';
10
11   sub has { "has!" }
12
13   no Moo;
14 }
15
16 {
17   package Roller;
18
19   use Moo::Role;
20
21   no warnings 'redefine';
22
23   sub with { "with!" }
24
25   no Moo::Role;
26 }
27
28 ok(!Spoon->can('extends'), 'extends cleaned');
29 is(Spoon->has, "has!", 'has left alone');
30
31 ok(!Roller->can('has'), 'has cleaned');
32 is(Roller->with, "with!", 'with left alone');
33
34 done_testing;