X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FModule.pm;h=08e1f9b13e3b9fe9cc14fb53fa10fa2d38de7fe8;hb=94278c1ba6283af20c09a6aef615954825d08162;hp=8c9fccd990fd7daca3b3f71178058092acb59ef9;hpb=127d39a79d936afd136ccfd8ff8271eea2bc0cbb;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Module.pm b/lib/Class/MOP/Module.pm index 8c9fccd..08e1f9b 100644 --- a/lib/Class/MOP/Module.pm +++ b/lib/Class/MOP/Module.pm @@ -6,26 +6,20 @@ use warnings; use Scalar::Util 'blessed'; -our $VERSION = '0.02'; +our $VERSION = '0.65'; +$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]); -} - 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')}; + ${$self->get_package_symbol({ sigil => '$', type => 'SCALAR', name => 'AUTHORITY' })}; } sub identifier { @@ -95,4 +89,4 @@ L 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