[catagits/Reaction.git] / lib / Reaction / ClassExporter.pm

package Reaction::ClassExporter;

use strict;
use warnings;
use Reaction::Class ();

sub import {
  my $self = shift;
  my $pkg = caller;
  &strict::import;
  &warnings::import;
  {
    no strict 'refs';
    @{"${pkg}::ISA"} = ('Reaction::Class');
    *{"${pkg}::import"} = \&Reaction::Class::import;
  }
  goto &Moose::import;
}

1;

=head1 NAME

Reaction::ClassExporter

=head1 DESCRIPTION

=head1 SEE ALSO

L<Reaction::Class>

=head1 AUTHORS

See L<Reaction::Class> for authors.

=head1 LICENSE

See L<Reaction::Class> for the license.

=cut
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