Commit | Line | Data |
7adfd53f |
1 | package Reaction::ClassExporter; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Reaction::Class (); |
6 | |
7 | sub import { |
8 | my $self = shift; |
9 | my $pkg = caller; |
10 | &strict::import; |
11 | &warnings::import; |
12 | { |
13 | no strict 'refs'; |
14 | @{"${pkg}::ISA"} = ('Reaction::Class'); |
15 | *{"${pkg}::import"} = \&Reaction::Class::import; |
16 | } |
17 | goto &Moose::import; |
18 | } |
19 | |
20 | 1; |
21 | |
22 | =head1 NAME |
23 | |
24 | Reaction::ClassExporter |
25 | |
26 | =head1 DESCRIPTION |
27 | |
28 | =head1 SEE ALSO |
29 | |
30 | L<Reaction::Class> |
31 | |
32 | =head1 AUTHORS |
33 | |
34 | See L<Reaction::Class> for authors. |
35 | |
36 | =head1 LICENSE |
37 | |
38 | See L<Reaction::Class> for the license. |
39 | |
40 | =cut |