use Scalar::Util 'blessed';
-our $VERSION = '0.02';
+our $VERSION = '0.64_07';
+$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 {
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