-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More tests => 62;
+use Test::More tests => 64;
use Test::Exception;
-BEGIN {
- use_ok('Class::MOP');
-}
+use Class::MOP;
{
my $attr = Class::MOP::Attribute->new('$test');
has_default default is_default_a_coderef
has_initializer initializer
+ definition_context
+
slots
get_value
set_value
process_accessors
install_accessors
remove_accessors
+
+ _new
);
is_deeply(
'builder',
'init_arg',
'initializer',
+ 'definition_context',
'default',
'associated_class',
'associated_methods',