use strict;
use warnings;
-use Test::More 'no_plan';
+use Test::More;
BEGIN {
+ require Moose;
+
+ plan skip_all => 'Moose::Policy does not work with recent versions of Moose'
+ if Moose->VERSION >= 1.05;
+
+ plan tests => 11;
+
use_ok('Moose::Policy');
}
# this method (mostly stolen from M::M::Attribute) just rebuilds the
# options so anything with 'is' gets PBP accessors
- sub _process_options {
+ before '_process_options' => sub {
my ($class, $name, $options) = @_;
if (exists $options->{is}) {
if ($options->{is} eq 'ro') {