Commit | Line | Data |
---|---|---|
c3398f5b | 1 | #!perl -T |
354cc113 | 2 | package Foo; |
c3398f5b | 3 | use strict; |
4 | use warnings; | |
02ce50cb | 5 | use Test::More tests => 2; |
c3398f5b | 6 | |
ea28c346 | 7 | require_ok 'Mouse'; |
8 | require_ok 'Mouse::Role'; | |
c3398f5b | 9 | |
081ecb94 | 10 | no warnings 'uninitialized'; |
46fce5c9 | 11 | |
8030a9aa | 12 | my $xs = !exists( $INC{'Mouse/PuprePerl.pm'} ); |
13 | ||
14 | diag "Testing Mouse/$Mouse::VERSION (", $xs ? 'XS' : 'Pure Perl', ")"; | |
94fc8b39 | 15 | |
5b776030 | 16 | diag "Soft dependency versions:"; |
43e6a50b | 17 | |
46fce5c9 | 18 | eval { require Moose }; |
081ecb94 | 19 | diag " Class::MOP: $Class::MOP::VERSION"; |
20 | diag " Moose: $Moose::VERSION"; | |
8030a9aa | 21 | |
22 | if($xs) { # display info for CPAN testers | |
23 | if(open my $in, '<', 'Makefile') { | |
24 | diag 'xsubpp settings:'; | |
25 | while(<$in>) { | |
26 | if(/^XSUBPP/) { | |
27 | diag $_; | |
28 | } | |
29 | } | |
30 | } | |
31 | } | |
32 |