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 authrity.
78 Stevan Little E<lt>stevan@iinteractive.comE<gt>
80 Yuval Kogman E<lt>nothingmuch@woobling.comE<gt>
82 =head1 COPYRIGHT AND LICENSE
84 Copyright 2006 by Infinity Interactive, Inc.
86 L<http://www.iinteractive.com>
88 This library is free software; you can redistribute it and/or modify
89 it under the same terms as Perl itself.