t/000-load.t

   1 #!perl -T
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 1;
   5
   6 use_ok 'Mouse';
   7
   8 diag "Soft dependency versions:";
   9 for my $module_name (keys %Mouse::Util::loaded) {
  10     my $version;
  11     if ($Mouse::Util::loaded{$module_name}) {
  12         no strict 'refs';
  13         $version = ${$module_name . '::VERSION'};
  14     }
  15     else {
  16         $version = "(provided by Mouse::Util)";
  17     }
  18
  19     diag "    $module_name: $version";
  20 }
  21
  22 no warnings 'uninitialized';
  23
  24 eval { require Moose };
  25 diag "    Class::MOP: $Class::MOP::VERSION";
  26 diag "    Moose: $Moose::VERSION";
  27
  28 eval { require Class::Method::Modifiers };
  29 diag "    Class::Method::Modifiers: $Class::Method::Modifiers::VERSION";
  30