#!perl
use strict;
use warnings;
-use Test::More;
-BEGIN{
- if($] < 5.008){
- plan skip_all => "segv happens on 5.6.2";
- }
-}
use Test::More tests => 4;
use Mouse::Util qw(does_role);
use strict;
use warnings;
-use Test::More;
-
-BEGIN{
- if($] < 5.008){
- plan skip_all => "segv happens on 5.6.2";
- }
-}
use lib 't/lib', 'lib';
use strict;
use warnings;
-use Test::More;
-
-BEGIN{
- if($] < 5.008){
- plan skip_all => "segv happens on 5.6.2";
- }
-}
use Test::More tests => 4;
use Test::Exception;
use strict;
use warnings;
-use Test::More;
-
-BEGIN{
- if($] < 5.008){
- plan skip_all => "segv happens on 5.6.2";
- }
-}
-
use Test::More tests => 5;
{