use strict;
use warnings;
-use Test::More tests => 54;
+use Test::More tests => 60;
use Test::Exception;
BEGIN {
isa_ok($meta, 'Class::MOP::Class');
my @methods = qw(
- meta
new clone
initialize_instance_slot
+ _set_initial_slot_value
name
has_accessor accessor
- has_writer writer get_write_method
- has_reader reader get_read_method
+ has_writer writer get_write_method get_write_method_ref
+ has_reader reader get_read_method get_read_method_ref
has_predicate predicate
has_clearer clearer
has_builder builder
has_init_arg init_arg
has_default default is_default_a_coderef
+ has_initializer initializer
slots
get_value
set_value
+ set_initial_value
has_value
clear_value
'$!clearer',
'$!builder',
'$!init_arg',
+ '$!initializer',
'$!default',
'$!associated_class',
'@!associated_methods',
- );
+ );
is_deeply(
[ sort $meta->get_attribute_list ],