lib/Class/MOP/Module.pm

   1
   2 package Class::MOP::Module;
   3
   4 use strict;
   5 use warnings;
   6
   7 use Scalar::Util 'blessed';
   8
   9 our $VERSION = '0.01';
  10
  11 use base 'Class::MOP::Package';
  12
  13 # introspection
  14
  15 sub meta {
  16     require Class::MOP::Class;
  17     Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
  18 }
  19
  20 1;
  21
  22 __END__
  23
  24 =pod
  25
  26 =head1 NAME
  27
  28 Class::MOP::Module - Module Meta Object
  29
  30 =head1 SYNOPSIS
  31
  32 =head1 DESCRIPTION
  33
  34 =head1 METHODS
  35
  36 =over 4
  37
  38 =item B<meta>
  39
  40 =back
  41
  42 =head1 AUTHOR
  43
  44 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  45
  46 =head1 COPYRIGHT AND LICENSE
  47
  48 Copyright 2006 by Infinity Interactive, Inc.
  49
  50 L<http://www.iinteractive.com>
  51
  52 This library is free software; you can redistribute it and/or modify
  53 it under the same terms as Perl itself.
  54
  55 =cut