-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More tests => 58;
+use Test::More tests => 69;
use Test::Exception;
-BEGIN {
- use_ok('Class::MOP');
-}
+use Class::MOP;
{
my $attr = Class::MOP::Attribute->new('$test');
isa_ok($meta, 'Class::MOP::Class');
my @methods = qw(
- meta
- new clone
+ new
+ clone
initialize_instance_slot
+ _set_initial_slot_value
name
- has_accessor accessor
- 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
+ has_accessor accessor
+ has_writer writer
+ has_write_method get_write_method get_write_method_ref
+ has_reader reader
+ has_read_method 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
+ has_insertion_order insertion_order _set_insertion_order
+
+ definition_context
slots
get_value
set_value
+ set_initial_value
has_value
clear_value
associated_class
- attach_to_class detach_from_class
+ attach_to_class
+ detach_from_class
accessor_metaclass
associate_method
process_accessors
+ _process_accessors
install_accessors
remove_accessors
+
+ _new
);
is_deeply(
}
my @attributes = (
- '$!name',
- '$!accessor',
- '$!reader',
- '$!writer',
- '$!predicate',
- '$!clearer',
- '$!builder',
- '$!init_arg',
- '$!default',
- '$!associated_class',
- '@!associated_methods',
+ 'name',
+ 'accessor',
+ 'reader',
+ 'writer',
+ 'predicate',
+ 'clearer',
+ 'builder',
+ 'init_arg',
+ 'initializer',
+ 'definition_context',
+ 'default',
+ 'associated_class',
+ 'associated_methods',
+ 'insertion_order',
);
is_deeply(