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 sub version {
  21     my $self = shift;
  22     ${$self->get_package_symbol('$VERSION')};
  23 }
  24
  25 1;
  26
  27 __END__
  28
  29 =pod
  30
  31 =head1 NAME
  32
  33 Class::MOP::Module - Module Meta Object
  34
  35 =head1 SYNOPSIS
  36
  37 =head1 DESCRIPTION
  38
  39 =head1 METHODS
  40
  41 =over 4
  42
  43 =item B<meta>
  44
  45 =item B<version>
  46
  47 =back
  48
  49 =head1 AUTHORS
  50
  51 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  52
  53 Yuval Kogman E<lt>nothingmuch@woobling.comE<gt>
  54
  55 =head1 COPYRIGHT AND LICENSE
  56
  57 Copyright 2006 by Infinity Interactive, Inc.
  58
  59 L<http://www.iinteractive.com>
  60
  61 This library is free software; you can redistribute it and/or modify
  62 it under the same terms as Perl itself.
  63
  64 =cut