foo

[gitmo/Class-MOP.git] / lib / Class / MOP / Module.pm

diff --git a/lib/Class/MOP/Module.pm b/lib/Class/MOP/Module.pm
index 1776d13..8bf93b0 100644 (file)
--- 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<meta>
 
+=item B<version>
+
 =back
 
 =head1 AUTHOR