lib/Class/MOP/Mixin.pm

   1 package Class::MOP::Mixin;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Scalar::Util 'blessed';
   7
   8 sub meta {
   9     require Class::MOP::Class;
  10     Class::MOP::Class->initialize( blessed( $_[0] ) || $_[0] );
  11 }
  12
  13 1;
  14
  15 # ABSTRACT: Base class for mixin classes
  16
  17 __END__
  18
  19 =pod
  20
  21 =head1 DESCRIPTION
  22
  23 This class provides a single method shared by all mixins
  24
  25 =head1 METHODS
  26
  27 This class provides a few methods which are useful in all metaclasses.
  28
  29 =over 4
  30
  31 =item B<< Class::MOP::Mixin->meta >>
  32
  33 This returns a L<Class::MOP::Class> object for the mixin class.
  34
  35 =back
  36
  37 =cut