use strict;
use warnings;
-use Test::More tests => 62;
+use Test::More tests => 63;
use Test::Exception;
BEGIN {
process_accessors
install_accessors
remove_accessors
+
+ _new
);
is_deeply(
}
my @attributes = (
- '$!name',
- '$!accessor',
- '$!reader',
- '$!writer',
- '$!predicate',
- '$!clearer',
- '$!builder',
- '$!init_arg',
- '$!initializer',
- '$!default',
- '$!associated_class',
- '@!associated_methods',
+ 'name',
+ 'accessor',
+ 'reader',
+ 'writer',
+ 'predicate',
+ 'clearer',
+ 'builder',
+ 'init_arg',
+ 'initializer',
+ 'default',
+ 'associated_class',
+ 'associated_methods',
);
is_deeply(