2 package Class::MOP::Module;
7 use Scalar::Util 'blessed';
10 our $AUTHORITY = 'cpan:STEVAN';
12 use base 'Class::MOP::Package';
17 require Class::MOP::Class;
18 Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
23 ${$self->get_package_symbol('$VERSION')};
28 ${$self->get_package_symbol('$AUTHORITY')};
35 ($self->version || ()),
36 ($self->authority || ()),
48 Class::MOP::Module - Module Meta Object
62 This is a read-only attribute which returns the C<$VERSION> of the
63 package for the given instance.
67 This is a read-only attribute which returns the C<$AUTHORITY> of the
68 package for the given instance.
72 This constructs a string of the name, version and authority.
78 Stevan Little E<lt>stevan@iinteractive.comE<gt>
80 =head1 COPYRIGHT AND LICENSE
82 Copyright 2006-2008 by Infinity Interactive, Inc.
84 L<http://www.iinteractive.com>
86 This library is free software; you can redistribute it and/or modify
87 it under the same terms as Perl itself.