#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More;
-BEGIN{
- if(eval{ require Class::Method::Modifiers::Fast } || eval{ require Class::Method::Modifiers }){
- plan tests => 11;
- }
- else{
- plan skip_all => 'This test requires Class::Method::Modifiers(::Fast)?';
- }
-}
+use Test::More tests => 11;
use Test::Exception;
lives_ok {
eval {
excludes 'excluded';
};
- local our $TODO = "Mouse::Role does not currently support 'excludes'";
+ our $TODO;
+ local $TODO = "Mouse::Role does not currently support 'excludes'";
::ok(!$@, "excludes");
no Mouse::Role;