Notify us of what versions of everything we have from Mouse::Util (and if it even...

[gitmo/Mouse.git] / t / 000-load.t

diff --git a/t/000-load.t b/t/000-load.t
index a075550..a78968a 100644 (file)
--- a/t/000-load.t
+++ b/t/000-load.t
@@ -5,3 +5,17 @@ use Test::More tests => 1;
 
 use_ok 'Mouse';
 
+diag "Soft dependency versions:";
+for my $module_name (keys %Mouse::Util::loaded) {
+    my $version;
+    if ($Mouse::Util::loaded{$module_name}) {
+        no strict 'refs';
+        $version = ${$module_name . '::VERSION'};
+    }
+    else {
+        $version = "(provided by Mouse::Util)";
+    }
+
+    diag "    $module_name: $version";
+}
+