lib/Class/MOP/Mixin.pm

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