lib/Reaction/ClassExporter.pm

   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