Commit | Line | Data |
---|---|---|
f9e68395 | 1 | #!/usr/bin/env perl |
2 | package Mouse::Role; | |
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Sub::Exporter; | |
7 | ||
8 | do { | |
9 | my $CALLER; | |
10 | ||
11 | my %exports = ( | |
12 | ); | |
13 | ||
14 | my $exporter = Sub::Exporter::build_exporter({ | |
15 | exports => \%exports, | |
16 | groups => { default => [':all'] }, | |
17 | }); | |
18 | ||
19 | sub import { | |
20 | $CALLER = caller; | |
21 | ||
22 | strict->import; | |
23 | warnings->import; | |
24 | ||
25 | goto $exporter; | |
26 | } | |
27 | ||
28 | sub unimport { | |
29 | } | |
30 | }; | |
31 | ||
32 | 1; | |
33 |