use Scalar::Util 'blessed';
-our $VERSION = '0.01';
+our $VERSION = '0.64_07';
+$VERSION = eval $VERSION;
+our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Package';
-# introspection
+sub version {
+ my $self = shift;
+ ${$self->get_package_symbol({ sigil => '$', type => 'SCALAR', name => 'VERSION' })};
+}
-sub meta {
- require Class::MOP::Class;
- Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
+sub authority {
+ my $self = shift;
+ ${$self->get_package_symbol({ sigil => '$', type => 'SCALAR', name => 'AUTHORITY' })};
}
-sub version {
+sub identifier {
my $self = shift;
- ${$self->get_package_symbol('$VERSION')};
+ join '-' => (
+ $self->name,
+ ($self->version || ()),
+ ($self->authority || ()),
+ );
}
1;
Class::MOP::Module - Module Meta Object
-=head1 SYNOPSIS
-
=head1 DESCRIPTION
+This is an abstraction of a Perl 5 module, it is a superclass of
+L<Class::MOP::Class>. A module essentially a package with metadata,
+in our case the version and authority.
+
=head1 METHODS
=over 4
=item B<meta>
+Returns a metaclass for this package.
+
+=item B<initialize ($package_name)>
+
+This will initialize a Class::MOP::Module instance which represents
+the module of C<$package_name>.
+
=item B<version>
+This is a read-only attribute which returns the C<$VERSION> of the
+package for the given instance.
+
+=item B<authority>
+
+This is a read-only attribute which returns the C<$AUTHORITY> of the
+package for the given instance.
+
+=item B<identifier>
+
+This constructs a string of the name, version and authority.
+
=back
=head1 AUTHORS
Stevan Little E<lt>stevan@iinteractive.comE<gt>
-Yuval Kogman E<lt>nothingmuch@woobling.comE<gt>
-
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-=cut
\ No newline at end of file
+=cut