X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=8452299080eb08ec068b786240fafef6dec60875;hp=1bb4d41b1c2fb65dda2812662c377568a422697c;hb=6719984210754e8d012ae678536f194c35000823;hpb=abfdffe0146e788b3b808398fb075231163c3948

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index 1bb4d41..8452299 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -7,6 +7,9 @@ use Carp;
 our @EXPORT_OK = qw(
     get_linear_isa
     apply_all_roles
+    version 
+    authority
+    identifier
 );
 our %EXPORT_TAGS = (
     all  => \@EXPORT_OK,
@@ -20,7 +23,7 @@ BEGIN {
     } else {
         my $loaded = do {
             local $SIG{__DIE__} = 'DEFAULT';
-            eval "require MRO::Compat; 1";
+            eval { require MRO::Compat; 1 };
         };
         if ($loaded) {
             $impl = \&mro::get_linear_isa;
@@ -53,6 +56,20 @@ BEGIN {
     *{ __PACKAGE__ . '::get_linear_isa'} = $impl;
 }
 
+{ # adapted from Class::MOP::Module
+
+    sub version { no strict 'refs'; ${shift->name.'::VERSION'} }
+    sub authority { no strict 'refs'; ${shift->name.'::AUTHORITY'} }  
+    sub identifier {
+        my $self = shift;
+        join '-' => (
+            $self->name,
+            ($self->version   || ()),
+            ($self->authority || ()),
+        );
+    }
+}
+
 # taken from Class/MOP.pm
 {
     my %cache;