-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More tests => 29;
+use Test::More tests => 27;
use Test::Exception;
-BEGIN {
- use_ok('Class::MOP');
- use_ok('Class::MOP::Attribute');
+BEGIN {use Class::MOP;use Class::MOP::Attribute;
}
# most values are static
my $attr = Class::MOP::Attribute->new('$test');
dies_ok {
- $attr->process_accessors('fail', 'my_failing_sub');
+ $attr->_process_accessors('fail', 'my_failing_sub');
} '... cannot find "fail" type generator';
}