lib/Class/MOP/Mixin.pm

   1 package Class::MOP::Mixin;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION   = '1.04';
   7 $VERSION = eval $VERSION;
   8 our $AUTHORITY = 'cpan:STEVAN';
   9
  10 use Scalar::Util 'blessed';
  11
  12 sub meta {
  13     require Class::MOP::Class;
  14     Class::MOP::Class->initialize( blessed( $_[0] ) || $_[0] );
  15 }
  16
  17 1;
  18
  19 __END__
  20
  21 =pod
  22
  23 =head1 NAME
  24
  25 Class::MOP::Mixin - Base class for mixin classes
  26
  27 =head1 DESCRIPTION
  28
  29 This class provides a single method shared by all mixins
  30
  31 =head1 METHODS
  32
  33 This class provides a few methods which are useful in all metaclasses.
  34
  35 =over 4
  36
  37 =item B<< Class::MOP::Mixin->meta >>
  38
  39 This returns a L<Class::MOP::Class> object for the mixin class.
  40
  41 =back
  42
  43 =head1 AUTHORS
  44
  45 Dave Rolsky E<lt>autarch@urth.orgE<gt>
  46
  47 =head1 COPYRIGHT AND LICENSE
  48
  49 Copyright 2006-2010 by Infinity Interactive, Inc.
  50
  51 L<http://www.iinteractive.com>
  52
  53 This library is free software; you can redistribute it and/or modify
  54 it under the same terms as Perl itself.
  55
  56 =cut