use Scalar::Util 'blessed';
-our $VERSION = '0.02';
-#our $AUTHORITY = {
-# cpan => 'STEVAN',
-# mailto => 'stevan@iinteractive.com',
-# http => '//www.iinteractive.com/'
-#};
+our $VERSION = '0.64_04';
+$VERSION = eval $VERSION;
+our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Package';
-# introspection
-
-sub meta {
- require Class::MOP::Class;
- Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
-}
-
-# QUESTION:
-# can the version be an attribute of the
-# module? I think it should be, but we need
-# to somehow assure that it always is stored
-# in the symbol table instead of being stored
-# into the instance structure itself
-
sub version {
my $self = shift;
- ${$self->get_package_symbol('$VERSION')};
+ ${$self->get_package_symbol({ sigil => '$', type => 'SCALAR', name => 'VERSION' })};
}
-#sub authority {
-# my $self = shift;
-# $self->get_package_symbol('$AUTHORITY');
-#}
+sub authority {
+ my $self = shift;
+ ${$self->get_package_symbol({ sigil => '$', type => 'SCALAR', name => 'AUTHORITY' })};
+}
+sub identifier {
+ my $self = shift;
+ 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