X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FModule.pm;h=8bf93b0c10a2bc09e5a18a77b2b59c49ace48193;hb=7f436b8c244d791e254b49668ac2b6d5218314e4;hp=1776d13d49eec05eec8c0bf8d07d11acb44d2bd2;hpb=6d5355c3845e060d269b664be7b4284c606691b8;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Module.pm b/lib/Class/MOP/Module.pm index 1776d13..8bf93b0 100644 --- a/lib/Class/MOP/Module.pm +++ b/lib/Class/MOP/Module.pm @@ -17,6 +17,11 @@ sub meta { Class::MOP::Class->initialize(blessed($_[0]) || $_[0]); } +sub version { + my $self = shift; + ${$self->get_package_variable('$VERSION')}; +} + 1; __END__ @@ -37,6 +42,8 @@ Class::MOP::Module - Module Meta Object =item B +=item B + =back =head1 AUTHOR