Commit | Line | Data |
c3398f5b |
1 | #!perl -T |
2 | use strict; |
3 | use warnings; |
4 | use Test::More tests => 1; |
5 | |
6 | use_ok 'Mouse'; |
7 | |
00136d64 |
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 | |
081ecb94 |
22 | no warnings 'uninitialized'; |
46fce5c9 |
23 | |
24 | eval { require Moose }; |
081ecb94 |
25 | diag " Class::MOP: $Class::MOP::VERSION"; |
26 | diag " Moose: $Moose::VERSION"; |
46fce5c9 |
27 | |
28 | eval { require Class::Method::Modifiers }; |
29 | diag " Class::Method::Modifiers: $Class::Method::Modifiers::VERSION"; |
30 | |