projects / gitmo/Moo.git / blame
| Commit | Line | Data |
|---|---|---|
| 69b39671 | 1 | use strictures 1; |
| 2 | use Test::More; | |
| 3 | ||
| 4 | ok eval q{ | |
| 5 | package Spoon; | |
| 6 | use Moo; | |
| 7 | ||
| 8 | has foo => ( is => 'ro' ); | |
| 9 | ||
| 10 | no Moo; | |
| 11 | ||
| 12 | use Moo; | |
| 13 | ||
| 14 | has foo2 => ( is => 'ro' ); | |
| 15 | ||
| 16 | no Moo; | |
| 17 | ||
| 18 | 1; | |
| 19 | }, "subs imported on 'use Moo;' after 'no Moo;'" | |
| 20 | or diag $@; | |
| 21 | ||
| 22 | ok eval q{ | |
| 23 | package Roller; | |
| fa93bfb2 | 24 | use Moo::Role; |
| 69b39671 | 25 | |
| 26 | has foo => ( is => 'ro' ); | |
| 27 | ||
| fa93bfb2 | 28 | no Moo::Role; |
| 69b39671 | 29 | |
| fa93bfb2 | 30 | use Moo::Role; |
| 69b39671 | 31 | |
| 32 | has foo2 => ( is => 'ro' ); | |
| 33 | ||
| fa93bfb2 | 34 | no Moo::Role; |
| 69b39671 | 35 | |
| 36 | 1; | |
| 37 | }, "subs imported on 'use Moo::Role;' after 'no Moo::Role;'" | |
| 38 | or diag $@; | |
| 39 | ||
| 40 | done_testing; |