lib/Class/MOP/Package.pm

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