PATH=/opt/SUNWspro/bin:/usr/local/bin:/opt/csw/bin:/usr/ccs/bin:/usr/bin:/usr/sbin Start 2012-03-29T02:29:12 ActivePerl-1402 CPAN-1.9402 Going to read '/export/home/fly1432/var/cpan/Metadata' Database was generated on Thu, 29 Mar 2012 07:12:33 GMT Running make for S/ST/STEVAN/Class-MOP-0.36.tar.gz Checksum for /net/nas/data/cpan/authors/id/S/ST/STEVAN/Class-MOP-0.36.tar.gz ok Class-MOP-0.36/ Class-MOP-0.36/Build.PL Class-MOP-0.36/Changes Class-MOP-0.36/examples/ Class-MOP-0.36/examples/ArrayBasedStorage.pod Class-MOP-0.36/examples/AttributesWithHistory.pod Class-MOP-0.36/examples/C3MethodDispatchOrder.pod Class-MOP-0.36/examples/ClassEncapsulatedAttributes.pod Class-MOP-0.36/examples/InsideOutClass.pod Class-MOP-0.36/examples/InstanceCountingClass.pod Class-MOP-0.36/examples/LazyClass.pod Class-MOP-0.36/examples/Perl6Attribute.pod Class-MOP-0.36/lib/ Class-MOP-0.36/lib/Class/ Class-MOP-0.36/lib/Class/MOP/ Class-MOP-0.36/lib/Class/MOP/Attribute.pm Class-MOP-0.36/lib/Class/MOP/Class/ Class-MOP-0.36/lib/Class/MOP/Class/Immutable.pm Class-MOP-0.36/lib/Class/MOP/Class.pm Class-MOP-0.36/lib/Class/MOP/Instance.pm Class-MOP-0.36/lib/Class/MOP/Method/ Class-MOP-0.36/lib/Class/MOP/Method/Accessor.pm Class-MOP-0.36/lib/Class/MOP/Method/Constructor.pm Class-MOP-0.36/lib/Class/MOP/Method/Wrapped.pm Class-MOP-0.36/lib/Class/MOP/Method.pm Class-MOP-0.36/lib/Class/MOP/Module.pm Class-MOP-0.36/lib/Class/MOP/Object.pm Class-MOP-0.36/lib/Class/MOP/Package.pm Class-MOP-0.36/lib/Class/MOP.pm Class-MOP-0.36/lib/metaclass.pm Class-MOP-0.36/Makefile.PL Class-MOP-0.36/MANIFEST Class-MOP-0.36/MANIFEST.SKIP Class-MOP-0.36/META.yml Class-MOP-0.36/README Class-MOP-0.36/scripts/ Class-MOP-0.36/scripts/class_browser.pl Class-MOP-0.36/t/ Class-MOP-0.36/t/000_load.t Class-MOP-0.36/t/001_basic.t Class-MOP-0.36/t/002_class_precedence_list.t Class-MOP-0.36/t/003_methods.t Class-MOP-0.36/t/004_advanced_methods.t Class-MOP-0.36/t/005_attributes.t Class-MOP-0.36/t/006_new_and_clone_metaclasses.t Class-MOP-0.36/t/010_self_introspection.t Class-MOP-0.36/t/011_create_class.t Class-MOP-0.36/t/012_package_variables.t Class-MOP-0.36/t/013_add_attribute_alternate.t Class-MOP-0.36/t/014_attribute_introspection.t Class-MOP-0.36/t/015_metaclass_inheritance.t Class-MOP-0.36/t/016_class_errors_and_edge_cases.t Class-MOP-0.36/t/017_add_method_modifier.t Class-MOP-0.36/t/018_anon_class.t Class-MOP-0.36/t/020_attribute.t Class-MOP-0.36/t/021_attribute_errors_and_edge_cases.t Class-MOP-0.36/t/022_attribute_duplication.t Class-MOP-0.36/t/030_method.t Class-MOP-0.36/t/031_method_modifiers.t Class-MOP-0.36/t/040_metaclass.t Class-MOP-0.36/t/041_metaclass_incompatability.t Class-MOP-0.36/t/042_metaclass_incompatibility_dynamic.t Class-MOP-0.36/t/043_instance_metaclass_incompatibility.t Class-MOP-0.36/t/044_instance_metaclass_incompatibility_dynamic.t Class-MOP-0.36/t/050_scala_style_mixin_composition.t Class-MOP-0.36/t/060_instance.t Class-MOP-0.36/t/061_instance_inline.t Class-MOP-0.36/t/070_immutable_metaclass.t Class-MOP-0.36/t/071_immutable_w_custom_metaclass.t Class-MOP-0.36/t/072_immutable_w_constructors.t Class-MOP-0.36/t/080_meta_package.t Class-MOP-0.36/t/081_meta_package_extension.t Class-MOP-0.36/t/100_BinaryTree_test.t Class-MOP-0.36/t/101_InstanceCountingClass_test.t Class-MOP-0.36/t/102_InsideOutClass_test.t Class-MOP-0.36/t/103_Perl6Attribute_test.t Class-MOP-0.36/t/104_AttributesWithHistory_test.t Class-MOP-0.36/t/105_ClassEncapsulatedAttributes_test.t Class-MOP-0.36/t/106_LazyClass_test.t Class-MOP-0.36/t/107_C3MethodDispatchOrder_test.t Class-MOP-0.36/t/108_ArrayBasedStorage_test.t Class-MOP-0.36/t/200_Class_C3_compatibility.t Class-MOP-0.36/t/300_random_eval_bug.t Class-MOP-0.36/t/lib/ Class-MOP-0.36/t/lib/BinaryTree.pm Class-MOP-0.36/t/pod.t Class-MOP-0.36/t/pod_coverage.t CPAN.pm: Going to build S/ST/STEVAN/Class-MOP-0.36.tar.gz >>> /export/home/fly1432/bin/perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Class::MOP Writing MYMETA.yml and MYMETA.json >>> make cp lib/Class/MOP/Method/Accessor.pm blib/lib/Class/MOP/Method/Accessor.pm cp lib/Class/MOP/Method/Constructor.pm blib/lib/Class/MOP/Method/Constructor.pm cp lib/metaclass.pm blib/lib/metaclass.pm cp lib/Class/MOP/Method.pm blib/lib/Class/MOP/Method.pm cp lib/Class/MOP/Instance.pm blib/lib/Class/MOP/Instance.pm cp lib/Class/MOP.pm blib/lib/Class/MOP.pm cp lib/Class/MOP/Class/Immutable.pm blib/lib/Class/MOP/Class/Immutable.pm cp lib/Class/MOP/Class.pm blib/lib/Class/MOP/Class.pm cp lib/Class/MOP/Method/Wrapped.pm blib/lib/Class/MOP/Method/Wrapped.pm cp lib/Class/MOP/Object.pm blib/lib/Class/MOP/Object.pm cp lib/Class/MOP/Attribute.pm blib/lib/Class/MOP/Attribute.pm cp lib/Class/MOP/Module.pm blib/lib/Class/MOP/Module.pm cp lib/Class/MOP/Package.pm blib/lib/Class/MOP/Package.pm Manifying blib/man3/Class::MOP::Method::Constructor.3 Manifying blib/man3/Class::MOP::Method::Accessor.3 Manifying blib/man3/metaclass.3 Manifying blib/man3/Class::MOP::Method.3 Manifying blib/man3/Class::MOP::Instance.3 Manifying blib/man3/Class::MOP::Class::Immutable.3 Manifying blib/man3/Class::MOP.3 Manifying blib/man3/Class::MOP::Class.3 Manifying blib/man3/Class::MOP::Method::Wrapped.3 Manifying blib/man3/Class::MOP::Object.3 Manifying blib/man3/Class::MOP::Attribute.3 Manifying blib/man3/Class::MOP::Package.3 Manifying blib/man3/Class::MOP::Module.3 STEVAN/Class-MOP-0.36.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 /export/home/fly1432/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/000_load.t ........................................ 1..29 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Package; ok 3 - use Class::MOP::Module; ok 4 - use Class::MOP::Class; ok 5 - use Class::MOP::Class::Immutable; ok 6 - use Class::MOP::Attribute; ok 7 - use Class::MOP::Method; ok 8 - use Class::MOP::Method::Wrapped; ok 9 - use Class::MOP::Method::Accessor; ok 10 - use Class::MOP::Method::Constructor; ok 11 - use Class::MOP::Instance; ok 12 - use Class::MOP::Object; ok 13 - ... Class::MOP::Package is immutable ok 14 - ... Class::MOP::Method is immutable ok 15 - ... Class::MOP::Method::Accessor is immutable ok 16 - ... Class::MOP::Method::Wrapped is immutable ok 17 - ... Class::MOP::Attribute is immutable ok 18 - ... Class::MOP::Class is immutable ok 19 - ... Class::MOP::Instance is immutable ok 20 - ... Class::MOP::Object is immutable ok 21 - ... Class::MOP::Method::Constructor is immutable ok 22 - ... Class::MOP::Module is immutable ok 23 - ... got all the metaclasses ok 24 - ... got all the metaclass instances ok 25 - ... got all the metaclass names ok 26 - ... got all the metaclass identifiers ok 27 - ... Class::MOP::Class->meta == Class::MOP::Class->meta->meta ok 28 - ... Class::MOP::Class->meta == Class::MOP::Class->meta->meta->meta ok 29 - ... Class::MOP::Class->meta == Class::MOP::Class->meta->meta->meta->meta ok t/001_basic.t ....................................... 1..25 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Class; ok 3 - The object isa Class::MOP::Class ok 4 - The object isa Class::MOP::Class ok 5 - ... Foo->name == Foo ok 6 - ... Bar->name == Bar ok 7 - ... Foo->version == 0.01 ok 8 - ... Bar->version == undef ok 9 - ... Foo->authority == undef ok 10 - ... Bar->authority == cpan:JRANDOM ok 11 - ... Foo->identifier == Foo-0.01 ok 12 - ... Bar->identifier == Bar-cpan:JRANDOM ok 13 - ... Foo has no superclasses ok 14 - ... Bar->superclasses == (Foo) ok 15 - ... Foo->superclasses == (UNIVERSAL) now ok 16 - ... Foo->class_precedence_list == (Foo, UNIVERSAL) ok 17 - ... Bar->class_precedence_list == (Bar, Foo, UNIVERSAL) ok 18 - The object isa Class::MOP::Class ok 19 - ... our metaclasses are singletons ok 20 - ... Baz->name == Baz ok 21 - ... Baz->version == 0.10 ok 22 - ... Baz->authority == YOMAMA ok 23 - ... Baz->identifier == Baz-0.10-cpan:YOMAMA ok 24 - ... Baz->superclasses == (Bar) ok 25 - ... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL) ok Recursive inheritance detected in package 'My::2::B' at t/002_class_precedence_list.t line 58. # Looks like you planned 6 tests but ran 3. # Looks like your test exited with 255 just after 3. t/002_class_precedence_list.t ....................... 1..6 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Class; ok 3 - ... My::D->meta->class_precedence_list == (D B A C A) Dubious, test returned 255 (wstat 65280, 0xff00) Failed 3/6 subtests # Failed test '... we added the method successfully' # at t/003_methods.t line 65. # died: Not a GLOB reference at /export/home/fly1432/var/cpan/build/Class-MOP-0.36-FbcHQT/blib/lib/Class/MOP/Package.pm line 197. Not a GLOB reference at /export/home/fly1432/var/cpan/build/Class-MOP-0.36-FbcHQT/blib/lib/Class/MOP/Package.pm line 197. # Looks like you planned 64 tests but ran 4. # Looks like you failed 1 test of 4 run. # Looks like your test exited with 255 just after 4. t/003_methods.t ..................................... 1..64 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Class; ok 3 - ... our method is not yet blessed not ok 4 - ... we added the method successfully Dubious, test returned 255 (wstat 65280, 0xff00) Failed 61/64 subtests t/004_advanced_methods.t ............................ 1..14 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Class; ok 3 - ... Foo::BUILD has not next method ok 4 - ... Bar::BUILD does have a next method ok 5 - ... Baz->BUILD does have a next method ok 6 - ... Foo::Bar->BUILD does have a next method ok 7 - ... Foo::Bar::Baz->BUILD does have a next method ok 8 - ... got the right list of applicable methods for Foo ok 9 - ... got the right list of applicable methods for Bar ok 10 - ... got the right list of applicable methods for Baz ok 11 - ... got the right list of applicable methods for Foo::Bar ok 12 - ... got the right list of applicable methods for Foo::Bar::Baz ok 13 - ... got the right list of BUILD methods for Foo::Bar ok 14 - ... got the right list of BUILD methods for Foo::Bar::Baz ok t/005_attributes.t .................................. 1..43 ok 1 - use Class::MOP; ok 2 - ... we added an attribute to Foo successfully ok 3 - ... Foo has $foo attribute ok 4 - ... got the right attribute back for Foo ok 5 - ... no accessor created ok 6 - ... we added an attribute to Foo successfully ok 7 - ... Foo has $bar attribute ok 8 - ... got the right attribute back for Foo ok 9 - ... no accessor created ok 10 - ... we added an attribute to Bar successfully ok 11 - ... Bar has $bar attribute ok 12 - ... got the right attribute back for Bar ok 13 - ... an accessor has been created ok 14 - The object isa Class::MOP::Method::Accessor ok 15 - ... we added an attribute to Baz successfully ok 16 - ... Baz has $baz attribute ok 17 - ... got the right attribute back for Baz ok 18 - ... a reader has been created ok 19 - ... a writer has been created ok 20 - The object isa Class::MOP::Method::Accessor ok 21 - The object isa Class::MOP::Method::Accessor ok 22 - The object isa Class::MOP::Class ok 23 - ... got the right attribute for "bar" ok 24 - ... got the right attribute for "baz" ok 25 - ... got the right attribute for "foo" ok 26 - ... got the right list of applicable attributes for Baz ok 27 - ... got the right list of associated classes from the applicable attributes for Baz ok 28 - ... removed the $baz attribute successfully ok 29 - ... got the right attribute back for Baz ok 30 - ... Baz no longer has $baz attribute ok 31 - ... Baz no longer has $baz attribute ok 32 - ... a reader has been removed ok 33 - ... a writer has been removed ok 34 - ... got the right list of applicable attributes for Baz ok 35 - ... got the right list of associated classes from the applicable attributes for Baz ok 36 - ... removed the $bar attribute successfully ok 37 - ... got the right attribute back for Bar ok 38 - ... Bar no longer has $bar attribute ok 39 - ... a accessor has been removed ok 40 - ... got the right list of applicable attributes for Baz ok 41 - ... got the right list of associated classes from the applicable attributes for Baz ok 42 - ... attempted to remove the non-existent $blammo attribute ok 43 - ... got the right value back (undef) ok t/006_new_and_clone_metaclasses.t ................... 1..36 ok 1 - use Class::MOP; ok 2 - The object isa Class::MOP::Class ok 3 - The object isa Class::MOP::Class ok 4 - ... it still creates the singleton ok 5 - The object isa Class::MOP::Class ok 6 - ... it creates the singleton even if you try to clone it ok 7 - The object isa Class::MOP::Class ok 8 - ... got the right Foo->meta singleton ok 9 - ... cloning got the right Foo->meta singleton ok 10 - The object isa Class::MOP::Class ok 11 - The object isa Class::MOP::Class ok 12 - ... even subclasses still create the singleton ok 13 - The object isa Class::MOP::Class ok 14 - ... and subclasses creates the singleton even if you try to clone it ok 15 - ... got the right Foo->meta singleton (w/subclass) ok 16 - ... cloning got the right Foo->meta singleton (w/subclass) ok 17 - The object isa Class::MOP::Class ok 18 - ... got the right name for the Bar metaclass ok 19 - ... Bar does not exists, so it has no version ok 20 - The object isa Class::MOP::Class ok 21 - The object isa MyMetaClass ok 22 - ... got the right Baz->meta singleton ok 23 - ... cloning got the right Baz->meta singleton ok 24 - The object isa Foo ok 25 - The object isa Bar ok 26 - The object isa Foo ok 27 - The object isa Baz ok 28 - The object isa Bar ok 29 - The object isa Foo ok 30 - The object isa Foo ok 31 - ... $cloned_foo is a new object different from $foo ok 32 - ... this dies as expected ok 33 - The object isa Class::MOP::Attribute ok 34 - The object isa Class::MOP::Attribute ok 35 - ... we successfully cloned our attributes ok 36 - ... we successfully did not clone our associated metaclass ok t/010_self_introspection.t .......................... 1..189 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Class; ok 3 - use Class::MOP::Package; ok 4 - use Class::MOP::Module; ok 5 - ... instance and class both lead to the same meta ok 6 - The object isa Class::MOP::Class ok 7 - The object isa Class::MOP::Package ok 8 - The object isa Class::MOP::Module ok 9 - ... got the correct method list for class ok 10 - ... Class::MOP::Class->has_method(meta) ok 11 - ... Class::MOP::Class->get_method(meta) == &Class::MOP::Class::meta ok 12 - ... Class::MOP::Class->has_method(initialize) ok 13 - ... Class::MOP::Class->get_method(initialize) == &Class::MOP::Class::initialize ok 14 - ... Class::MOP::Class->has_method(reinitialize) ok 15 - ... Class::MOP::Class->get_method(reinitialize) == &Class::MOP::Class::reinitialize ok 16 - ... Class::MOP::Class->has_method(create) ok 17 - ... Class::MOP::Class->get_method(create) == &Class::MOP::Class::create ok 18 - ... Class::MOP::Class->has_method(create_anon_class) ok 19 - ... Class::MOP::Class->get_method(create_anon_class) == &Class::MOP::Class::create_anon_class ok 20 - ... Class::MOP::Class->has_method(is_anon_class) ok 21 - ... Class::MOP::Class->get_method(is_anon_class) == &Class::MOP::Class::is_anon_class ok 22 - ... Class::MOP::Class->has_method(instance_metaclass) ok 23 - ... Class::MOP::Class->get_method(instance_metaclass) == &Class::MOP::Class::instance_metaclass ok 24 - ... Class::MOP::Class->has_method(get_meta_instance) ok 25 - ... Class::MOP::Class->get_method(get_meta_instance) == &Class::MOP::Class::get_meta_instance ok 26 - ... Class::MOP::Class->has_method(new_object) ok 27 - ... Class::MOP::Class->get_method(new_object) == &Class::MOP::Class::new_object ok 28 - ... Class::MOP::Class->has_method(clone_object) ok 29 - ... Class::MOP::Class->get_method(clone_object) == &Class::MOP::Class::clone_object ok 30 - ... Class::MOP::Class->has_method(construct_instance) ok 31 - ... Class::MOP::Class->get_method(construct_instance) == &Class::MOP::Class::construct_instance ok 32 - ... Class::MOP::Class->has_method(construct_class_instance) ok 33 - ... Class::MOP::Class->get_method(construct_class_instance) == &Class::MOP::Class::construct_class_instance ok 34 - ... Class::MOP::Class->has_method(clone_instance) ok 35 - ... Class::MOP::Class->get_method(clone_instance) == &Class::MOP::Class::clone_instance ok 36 - ... Class::MOP::Class->has_method(check_metaclass_compatability) ok 37 - ... Class::MOP::Class->get_method(check_metaclass_compatability) == &Class::MOP::Class::check_metaclass_compatability ok 38 - ... Class::MOP::Class->has_method(attribute_metaclass) ok 39 - ... Class::MOP::Class->get_method(attribute_metaclass) == &Class::MOP::Class::attribute_metaclass ok 40 - ... Class::MOP::Class->has_method(method_metaclass) ok 41 - ... Class::MOP::Class->get_method(method_metaclass) == &Class::MOP::Class::method_metaclass ok 42 - ... Class::MOP::Class->has_method(superclasses) ok 43 - ... Class::MOP::Class->get_method(superclasses) == &Class::MOP::Class::superclasses ok 44 - ... Class::MOP::Class->has_method(class_precedence_list) ok 45 - ... Class::MOP::Class->get_method(class_precedence_list) == &Class::MOP::Class::class_precedence_list ok 46 - ... Class::MOP::Class->has_method(has_method) ok 47 - ... Class::MOP::Class->get_method(has_method) == &Class::MOP::Class::has_method ok 48 - ... Class::MOP::Class->has_method(get_method) ok 49 - ... Class::MOP::Class->get_method(get_method) == &Class::MOP::Class::get_method ok 50 - ... Class::MOP::Class->has_method(add_method) ok 51 - ... Class::MOP::Class->get_method(add_method) == &Class::MOP::Class::add_method ok 52 - ... Class::MOP::Class->has_method(remove_method) ok 53 - ... Class::MOP::Class->get_method(remove_method) == &Class::MOP::Class::remove_method ok 54 - ... Class::MOP::Class->has_method(alias_method) ok 55 - ... Class::MOP::Class->get_method(alias_method) == &Class::MOP::Class::alias_method ok 56 - ... Class::MOP::Class->has_method(get_method_list) ok 57 - ... Class::MOP::Class->get_method(get_method_list) == &Class::MOP::Class::get_method_list ok 58 - ... Class::MOP::Class->has_method(get_method_map) ok 59 - ... Class::MOP::Class->get_method(get_method_map) == &Class::MOP::Class::get_method_map ok 60 - ... Class::MOP::Class->has_method(compute_all_applicable_methods) ok 61 - ... Class::MOP::Class->get_method(compute_all_applicable_methods) == &Class::MOP::Class::compute_all_applicable_methods ok 62 - ... Class::MOP::Class->has_method(find_method_by_name) ok 63 - ... Class::MOP::Class->get_method(find_method_by_name) == &Class::MOP::Class::find_method_by_name ok 64 - ... Class::MOP::Class->has_method(find_all_methods_by_name) ok 65 - ... Class::MOP::Class->get_method(find_all_methods_by_name) == &Class::MOP::Class::find_all_methods_by_name ok 66 - ... Class::MOP::Class->has_method(find_next_method_by_name) ok 67 - ... Class::MOP::Class->get_method(find_next_method_by_name) == &Class::MOP::Class::find_next_method_by_name ok 68 - ... Class::MOP::Class->has_method(add_before_method_modifier) ok 69 - ... Class::MOP::Class->get_method(add_before_method_modifier) == &Class::MOP::Class::add_before_method_modifier ok 70 - ... Class::MOP::Class->has_method(add_after_method_modifier) ok 71 - ... Class::MOP::Class->get_method(add_after_method_modifier) == &Class::MOP::Class::add_after_method_modifier ok 72 - ... Class::MOP::Class->has_method(add_around_method_modifier) ok 73 - ... Class::MOP::Class->get_method(add_around_method_modifier) == &Class::MOP::Class::add_around_method_modifier ok 74 - ... Class::MOP::Class->has_method(has_attribute) ok 75 - ... Class::MOP::Class->get_method(has_attribute) == &Class::MOP::Class::has_attribute ok 76 - ... Class::MOP::Class->has_method(get_attribute) ok 77 - ... Class::MOP::Class->get_method(get_attribute) == &Class::MOP::Class::get_attribute ok 78 - ... Class::MOP::Class->has_method(add_attribute) ok 79 - ... Class::MOP::Class->get_method(add_attribute) == &Class::MOP::Class::add_attribute ok 80 - ... Class::MOP::Class->has_method(remove_attribute) ok 81 - ... Class::MOP::Class->get_method(remove_attribute) == &Class::MOP::Class::remove_attribute ok 82 - ... Class::MOP::Class->has_method(get_attribute_list) ok 83 - ... Class::MOP::Class->get_method(get_attribute_list) == &Class::MOP::Class::get_attribute_list ok 84 - ... Class::MOP::Class->has_method(get_attribute_map) ok 85 - ... Class::MOP::Class->get_method(get_attribute_map) == &Class::MOP::Class::get_attribute_map ok 86 - ... Class::MOP::Class->has_method(compute_all_applicable_attributes) ok 87 - ... Class::MOP::Class->get_method(compute_all_applicable_attributes) == &Class::MOP::Class::compute_all_applicable_attributes ok 88 - ... Class::MOP::Class->has_method(find_attribute_by_name) ok 89 - ... Class::MOP::Class->get_method(find_attribute_by_name) == &Class::MOP::Class::find_attribute_by_name ok 90 - ... Class::MOP::Class->has_method(is_mutable) ok 91 - ... Class::MOP::Class->get_method(is_mutable) == &Class::MOP::Class::is_mutable ok 92 - ... Class::MOP::Class->has_method(is_immutable) ok 93 - ... Class::MOP::Class->get_method(is_immutable) == &Class::MOP::Class::is_immutable ok 94 - ... Class::MOP::Class->has_method(make_immutable) ok 95 - ... Class::MOP::Class->get_method(make_immutable) == &Class::MOP::Class::make_immutable ok 96 - ... Class::MOP::Class->has_method(DESTROY) ok 97 - ... Class::MOP::Class->get_method(DESTROY) == &Class::MOP::Class::DESTROY ok 98 - ... got the correct method list for package ok 99 - ... Class::MOP::Package->has_method(meta) ok 100 - ... Class::MOP::Package->get_method(meta) == &Class::MOP::Package::meta ok 101 - ... Class::MOP::Package->has_method(initialize) ok 102 - ... Class::MOP::Package->get_method(initialize) == &Class::MOP::Package::initialize ok 103 - ... Class::MOP::Package->has_method(name) ok 104 - ... Class::MOP::Package->get_method(name) == &Class::MOP::Package::name ok 105 - ... Class::MOP::Package->has_method(namespace) ok 106 - ... Class::MOP::Package->get_method(namespace) == &Class::MOP::Package::namespace ok 107 - ... Class::MOP::Package->has_method(add_package_symbol) ok 108 - ... Class::MOP::Package->get_method(add_package_symbol) == &Class::MOP::Package::add_package_symbol ok 109 - ... Class::MOP::Package->has_method(get_package_symbol) ok 110 - ... Class::MOP::Package->get_method(get_package_symbol) == &Class::MOP::Package::get_package_symbol ok 111 - ... Class::MOP::Package->has_method(has_package_symbol) ok 112 - ... Class::MOP::Package->get_method(has_package_symbol) == &Class::MOP::Package::has_package_symbol ok 113 - ... Class::MOP::Package->has_method(remove_package_symbol) ok 114 - ... Class::MOP::Package->get_method(remove_package_symbol) == &Class::MOP::Package::remove_package_symbol ok 115 - ... Class::MOP::Package->has_method(list_all_package_symbols) ok 116 - ... Class::MOP::Package->get_method(list_all_package_symbols) == &Class::MOP::Package::list_all_package_symbols ok 117 - ... Class::MOP::Package->has_method(remove_package_glob) ok 118 - ... Class::MOP::Package->get_method(remove_package_glob) == &Class::MOP::Package::remove_package_glob ok 119 - ... Class::MOP::Package->has_method(_deconstruct_variable_name) ok 120 - ... Class::MOP::Package->get_method(_deconstruct_variable_name) == &Class::MOP::Package::_deconstruct_variable_name ok 121 - ... got the correct method list for module ok 122 - ... Class::MOP::Module->has_method(meta) ok 123 - ... Class::MOP::Module->get_method(meta) == &Class::MOP::Module::meta ok 124 - ... Class::MOP::Module->has_method(version) ok 125 - ... Class::MOP::Module->get_method(version) == &Class::MOP::Module::version ok 126 - ... Class::MOP::Module->has_method(authority) ok 127 - ... Class::MOP::Module->get_method(authority) == &Class::MOP::Module::authority ok 128 - ... Class::MOP::Module->has_method(identifier) ok 129 - ... Class::MOP::Module->get_method(identifier) == &Class::MOP::Module::identifier ok 130 - ... NOT Class::MOP::Class->has_method(confess) ok 131 - ... NOT Class::MOP::Class->has_method(blessed) ok 132 - ... NOT Class::MOP::Class->has_method(reftype) ok 133 - ... NOT Class::MOP::Class->has_method(subname) ok 134 - ... NOT Class::MOP::Class->has_method(svref_2object) ok 135 - ... got the right list of attributes ok 136 - ... got the right list of attributes ok 137 - ... Class::MOP::Class->has_attribute(%:methods) ok 138 - The object isa Class::MOP::Attribute ok 139 - ... Class::MOP::Class->has_attribute(%:attributes) ok 140 - The object isa Class::MOP::Attribute ok 141 - ... Class::MOP::Class->has_attribute($:attribute_metaclass) ok 142 - The object isa Class::MOP::Attribute ok 143 - ... Class::MOP::Class->has_attribute($:method_metaclass) ok 144 - The object isa Class::MOP::Attribute ok 145 - ... Class::MOP::Class->has_attribute($:instance_metaclass) ok 146 - The object isa Class::MOP::Attribute ok 147 - ... got the right list of attributes ok 148 - ... got the right list of attributes ok 149 - ... Class::MOP::Package->has_attribute($:package) ok 150 - The object isa Class::MOP::Attribute ok 151 - ... Class::MOP::Package->has_attribute(%:namespace) ok 152 - The object isa Class::MOP::Attribute ok 153 - ... got the right list of attributes ok 154 - ... got the right list of attributes ok 155 - ... Class::MOP::Module->has_attribute($:version) ok 156 - The object isa Class::MOP::Attribute ok 157 - ... Class::MOP::Module->has_attribute($:authority) ok 158 - The object isa Class::MOP::Attribute ok 159 - ... Class::MOP::Class $:package has a reader ok 160 - ... Class::MOP::Class $:package's a reader is { name => sub { ... } } ok 161 - ... Class::MOP::Class $:package has a init_arg ok 162 - ... Class::MOP::Class $:package's a init_arg is :package ok 163 - ... Class::MOP::Class %:attributes has a reader ok 164 - ... Class::MOP::Class %:attributes's a reader is &get_attribute_map ok 165 - ... Class::MOP::Class %:attributes has a init_arg ok 166 - ... Class::MOP::Class %:attributes's a init_arg is :attributes ok 167 - ... Class::MOP::Class %:attributes has a default ok 168 - ... Class::MOP::Class %:attributes's a default of {} ok 169 - ... Class::MOP::Class $:attribute_metaclass has a reader ok 170 - ... Class::MOP::Class $:attribute_metaclass's a reader is &attribute_metaclass ok 171 - ... Class::MOP::Class $:attribute_metaclass has a init_arg ok 172 - ... Class::MOP::Class $:attribute_metaclass's a init_arg is :attribute_metaclass ok 173 - ... Class::MOP::Class $:attribute_metaclass has a default ok 174 - ... Class::MOP::Class $:attribute_metaclass's a default is Class::MOP:::Attribute ok 175 - ... Class::MOP::Class $:method_metaclass has a reader ok 176 - ... Class::MOP::Class $:method_metaclass's a reader is &method_metaclass ok 177 - ... Class::MOP::Class $:method_metaclass has a init_arg ok 178 - ... Class::MOP::Class $:method_metaclass's init_arg is :method_metaclass ok 179 - ... Class::MOP::Class $:method_metaclass has a default ok 180 - ... Class::MOP::Class $:method_metaclass's a default is Class::MOP:::Method ok 181 - ... Class::MOP::Class->name ok 182 - ... Class::MOP::Class->version ok 183 - ... Class::MOP::Class->has_package_symbol($VERSION) ok 184 - ... Class::MOP::Class->get_package_symbol($VERSION) ok 185 - ... Class::MOP::Class->superclasses == [ Class::MOP::Module ] ok 186 - ... Class::MOP::Class->class_precedence_list == [ Class::MOP::Class Class::MOP::Module Class::MOP::Package ] ok 187 - ... got the right value for attribute_metaclass ok 188 - ... got the right value for method_metaclass ok 189 - ... got the right value for instance_metaclass ok t/011_create_class.t ................................ 1..28 ok 1 - use Class::MOP; ok 2 - The object isa Class::MOP::Class ok 3 - The object isa Class::MOP::Class ok 4 - The object isa Point ok 5 - Point->can('x') ok 6 - Point->can('y') ok 7 - Point->can('clear') ok 8 - ... got the meta from the instance too ok 9 - ... the $.y attribute was initialized correctly through the metaobject ok 10 - ... the $.y attribute was set properly with the accessor ok 11 - ... the $.x attribute was initialized correctly through the metaobject ok 12 - ... cannot write to a read-only accessor ok 13 - ... the $.x attribute was not altered ok 14 - ... the $.y attribute was cleared correctly ok 15 - ... the $.x attribute was cleared correctly ok 16 - The object isa Point3D ok 17 - The object isa Point ok 18 - ... got the meta from the instance too ok 19 - Point3D->can('x') ok 20 - Point3D->can('y') ok 21 - Point3D->can('clear') ok 22 - ... the $.x attribute was initialized correctly through the metaobject ok 23 - ... the $.y attribute was initialized correctly through the metaobject ok 24 - ... the $:z attribute was initialized correctly through the metaobject ok 25 - The object isa Point3D ok 26 - ... the $.x attribute was not initialized ok 27 - ... the $.y attribute was not initialized ok 28 - ... the $:z attribute was initialized correctly through the metaobject ok t/012_package_variables.t ........................... 1..87 ok 1 - use Class::MOP; ok 2 - ... the %foo slot has not been created yet ok 3 - ... the meta agrees ok 4 - ... created %Foo::foo successfully ok 5 - ... SCALAR shouldnt have been created too ok 6 - ... ARRAY shouldnt have been created too ok 7 - ... CODE shouldnt have been created too ok 8 - ... the %foo slot was created successfully ok 9 - ... the meta agrees ok 10 - ... our %foo was initialized correctly ok 11 - ... our %foo was initialized correctly ok 12 - ... got the right package variable back ok 13 - ... our %foo is the same as the metas ok 14 - ... our %foo was updated correctly ok 15 - ... our %foo was updated correctly ok 16 - ... the @bar slot has not been created yet ok 17 - ... created @Foo::bar successfully ok 18 - ... the @bar slot was created successfully ok 19 - ... the meta agrees ok 20 - ... SCALAR shouldnt have been created too ok 21 - ... HASH shouldnt have been created too ok 22 - ... CODE shouldnt have been created too ok 23 - ... our @bar was initialized correctly ok 24 - ... our @bar was initialized correctly ok 25 - ... the $baz slot has not been created yet ok 26 - ... created $Foo::baz successfully ok 27 - ... the $baz slot was created successfully ok 28 - ... the meta agrees ok 29 - ... ARRAY shouldnt have been created too ok 30 - ... HASH shouldnt have been created too ok 31 - ... CODE shouldnt have been created too ok 32 - ... got the right value back ok 33 - ... our $baz was assigned to correctly ok 34 - ... the meta agrees ok 35 - ... the &funk slot has not been created yet ok 36 - ... created &Foo::funk successfully ok 37 - ... the &funk slot was created successfully ok 38 - ... the meta agrees ok 39 - ... SCALAR shouldnt have been created too ok 40 - ... ARRAY shouldnt have been created too ok 41 - ... HASH shouldnt have been created too ok 42 - ... our &funk exists ok 43 - ... got the right value from the function ok 44 - ... created @Foo::foo successfully ok 45 - ... the @foo slot was added successfully ok 46 - ... got the right values for @Foo::foo ok 47 - ... created &Foo::foo successfully ok 48 - ... the meta agrees ok 49 - ... got the right value for &Foo::foo ok 50 - ... created $Foo::foo successfully ok 51 - ... the meta agrees ok 52 - ... got the right scalar value back ok 53 - ... got the right value from the scalar ok 54 - ... removed %Foo::foo successfully ok 55 - ... the %foo slot was removed successfully ok 56 - ... the @foo slot still exists ok 57 - ... the &foo slot still exists ok 58 - ... the $foo slot still exists ok 59 - ... got the right values for @Foo::foo ok 60 - ... got the right value for &Foo::foo ok 61 - ... got the right value for $Foo::foo ok 62 - ... the %foo slot has been removed successfully ok 63 - ... the @foo slot has NOT been removed ok 64 - ... the &foo slot has NOT been removed ok 65 - ... the $foo slot has NOT been removed ok 66 - ... removed &Foo::foo successfully ok 67 - ... the &foo slot no longer exists ok 68 - ... the @foo slot still exists ok 69 - ... the $foo slot still exists ok 70 - ... got the right values for @Foo::foo ok 71 - ... got the right value for $Foo::foo ok 72 - ... the %foo slot has been removed successfully ok 73 - ... the &foo slot has now been removed ok 74 - ... the @foo slot has NOT been removed ok 75 - ... the $foo slot has NOT been removed ok 76 - ... removed $Foo::foo successfully ok 77 - ... the $foo slot no longer exists ok 78 - ... the @foo slot still exists ok 79 - ... got the right values for @Foo::foo ok 80 - ... the %foo slot has been removed successfully ok 81 - ... the &foo slot has now been removed ok 82 - ... the $foo slot has now been removed ok 83 - ... the @foo slot has NOT been removed ok 84 - ... no sigil for bar ok 85 - ... no sigil for bar ok 86 - ... no sigil for bar ok 87 - ... no sigil for bar ok t/013_add_attribute_alternate.t ..................... 1..28 ok 1 - use Class::MOP; ok 2 - The object isa Class::MOP::Class ok 3 - The object isa Class::MOP::Class ok 4 - The object isa Point ok 5 - Point->can('x') ok 6 - Point->can('y') ok 7 - Point->can('clear') ok 8 - ... got the meta from the instance too ok 9 - ... the $.y attribute was initialized correctly through the metaobject ok 10 - ... the $.y attribute was set properly with the accessor ok 11 - ... the $.x attribute was initialized correctly through the metaobject ok 12 - ... cannot write to a read-only accessor ok 13 - ... the $.x attribute was not altered ok 14 - ... the $.y attribute was cleared correctly ok 15 - ... the $.x attribute was cleared correctly ok 16 - The object isa Point3D ok 17 - The object isa Point ok 18 - ... got the meta from the instance too ok 19 - Point3D->can('x') ok 20 - Point3D->can('y') ok 21 - Point3D->can('clear') ok 22 - ... the $.x attribute was initialized correctly through the metaobject ok 23 - ... the $.y attribute was initialized correctly through the metaobject ok 24 - ... the $:z attribute was initialized correctly through the metaobject ok 25 - The object isa Point3D ok 26 - ... the $.x attribute was not initialized ok 27 - ... the $.y attribute was not initialized ok 28 - ... the $:z attribute was initialized correctly through the metaobject ok t/014_attribute_introspection.t ..................... 1..49 ok 1 - use Class::MOP; ok 2 - ... instance and class both lead to the same meta ok 3 - The object isa Class::MOP::Class ok 4 - ... our method list matches ok 5 - ... Class::MOP::Attribute->has_method(meta) ok 6 - ... Class::MOP::Attribute->has_method(new) ok 7 - ... Class::MOP::Attribute->has_method(clone) ok 8 - ... Class::MOP::Attribute->has_method(initialize_instance_slot) ok 9 - ... Class::MOP::Attribute->has_method(name) ok 10 - ... Class::MOP::Attribute->has_method(has_accessor) ok 11 - ... Class::MOP::Attribute->has_method(accessor) ok 12 - ... Class::MOP::Attribute->has_method(has_writer) ok 13 - ... Class::MOP::Attribute->has_method(writer) ok 14 - ... Class::MOP::Attribute->has_method(has_reader) ok 15 - ... Class::MOP::Attribute->has_method(reader) ok 16 - ... Class::MOP::Attribute->has_method(has_predicate) ok 17 - ... Class::MOP::Attribute->has_method(predicate) ok 18 - ... Class::MOP::Attribute->has_method(has_clearer) ok 19 - ... Class::MOP::Attribute->has_method(clearer) ok 20 - ... Class::MOP::Attribute->has_method(has_init_arg) ok 21 - ... Class::MOP::Attribute->has_method(init_arg) ok 22 - ... Class::MOP::Attribute->has_method(has_default) ok 23 - ... Class::MOP::Attribute->has_method(default) ok 24 - ... Class::MOP::Attribute->has_method(is_default_a_coderef) ok 25 - ... Class::MOP::Attribute->has_method(slots) ok 26 - ... Class::MOP::Attribute->has_method(get_value) ok 27 - ... Class::MOP::Attribute->has_method(set_value) ok 28 - ... Class::MOP::Attribute->has_method(has_value) ok 29 - ... Class::MOP::Attribute->has_method(clear_value) ok 30 - ... Class::MOP::Attribute->has_method(associated_class) ok 31 - ... Class::MOP::Attribute->has_method(attach_to_class) ok 32 - ... Class::MOP::Attribute->has_method(detach_from_class) ok 33 - ... Class::MOP::Attribute->has_method(accessor_metaclass) ok 34 - ... Class::MOP::Attribute->has_method(associated_methods) ok 35 - ... Class::MOP::Attribute->has_method(associate_method) ok 36 - ... Class::MOP::Attribute->has_method(process_accessors) ok 37 - ... Class::MOP::Attribute->has_method(install_accessors) ok 38 - ... Class::MOP::Attribute->has_method(remove_accessors) ok 39 - ... our attribute list matches ok 40 - ... Class::MOP::Attribute->has_attribute(name) ok 41 - ... Class::MOP::Attribute->has_attribute(accessor) ok 42 - ... Class::MOP::Attribute->has_attribute(reader) ok 43 - ... Class::MOP::Attribute->has_attribute(writer) ok 44 - ... Class::MOP::Attribute->has_attribute(predicate) ok 45 - ... Class::MOP::Attribute->has_attribute(clearer) ok 46 - ... Class::MOP::Attribute->has_attribute(init_arg) ok 47 - ... Class::MOP::Attribute->has_attribute(default) ok 48 - ... Class::MOP::Attribute->has_attribute(associated_class) ok 49 - ... Class::MOP::Attribute->has_attribute(associated_methods) ok t/015_metaclass_inheritance.t ....................... 1..10 ok 1 - use Class::MOP; ok 2 - The object isa Class::MOP::Class ok 3 - ... foo_meta->name == Foo ok 4 - The object isa Class::MOP::Class ok 5 - ... bar_meta->name == Bar ok 6 - ... Bar->meta != Foo->meta ok 7 - The object isa Class::MOP::Class ok 8 - ... baz_meta->name == Baz ok 9 - ... Baz->meta != Bar->meta ok 10 - ... Baz->meta != Foo->meta ok t/016_class_errors_and_edge_cases.t ................. 1..49 ok 1 - use Class::MOP; ok 2 - ... initialize requires a name parameter ok 3 - ... initialize requires a name valid parameter ok 4 - ... initialize requires an unblessed parameter ok 5 - ... construct_class_instance requires an :package parameter ok 6 - ... construct_class_instance requires a defined :package parameter ok 7 - ... construct_class_instance requires a valid :package parameter ok 8 - ... create requires an package_name parameter ok 9 - ... create requires a defined package_name parameter ok 10 - ... create requires a valid package_name parameter ok 11 - ... create requires a valid package_name parameter ok 12 - ... can only clone instances ok 13 - ... can only clone instances ok 14 - ... add_method dies as expected ok 15 - ... add_method dies as expected ok 16 - ... add_method dies as expected ok 17 - ... add_method dies as expected ok 18 - ... alias_method dies as expected ok 19 - ... alias_method dies as expected ok 20 - ... alias_method dies as expected ok 21 - ... alias_method dies as expected ok 22 - ... has_method dies as expected ok 23 - ... has_method dies as expected ok 24 - ... get_method dies as expected ok 25 - ... get_method dies as expected ok 26 - ... remove_method dies as expected ok 27 - ... remove_method dies as expected ok 28 - ... find_all_methods_by_name dies as expected ok 29 - ... find_all_methods_by_name dies as expected ok 30 - ... add_attribute dies as expected ok 31 - ... has_attribute dies as expected ok 32 - ... has_attribute dies as expected ok 33 - ... get_attribute dies as expected ok 34 - ... get_attribute dies as expected ok 35 - ... remove_attribute dies as expected ok 36 - ... remove_attribute dies as expected ok 37 - ... add_package_symbol dies as expected ok 38 - ... add_package_symbol dies as expected ok 39 - ... add_package_symbol dies as expected ok 40 - ... add_package_symbol dies as expected ok 41 - ... has_package_symbol dies as expected ok 42 - ... has_package_symbol dies as expected ok 43 - ... has_package_symbol dies as expected ok 44 - ... get_package_symbol dies as expected ok 45 - ... get_package_symbol dies as expected ok 46 - ... get_package_symbol dies as expected ok 47 - ... remove_package_symbol dies as expected ok 48 - ... remove_package_symbol dies as expected ok 49 - ... remove_package_symbol dies as expected ok t/017_add_method_modifier.t ......................... 1..20 ok 1 - use Class::MOP; ok 2 - ... checking account now has a withdraw method ok 3 - The object isa Class::MOP::Method::Wrapped ok 4 - The object isa Class::MOP::Method ok 5 - The object isa BankAccount ok 6 - ... got the right savings balance ok 7 - ... withdrew from savings successfully ok 8 - ... got the right savings balance after withdrawl ok 9 - ... could not withdraw from savings successfully ok 10 - ... got the right savings balance after deposit ok 11 - The object isa CheckingAccount ok 12 - The object isa BankAccount ok 13 - ... got the right overdraft account ok 14 - ... got the right checkings balance ok 15 - ... withdrew from checking successfully ok 16 - ... got the right checkings balance after withdrawl ok 17 - ... got the right savings balance after checking withdrawl (no overdraft) ok 18 - ... withdrew from checking successfully ok 19 - ... got the right checkings balance after withdrawl ok 20 - ... got the right savings balance after overdraft withdrawl ok t/018_anon_class.t .................................. 1..24 ok 1 - use Class::MOP; ok 2 - The object isa Class::MOP::Class ok 3 - ... the package exists ok 4 - ... got an anon class package name ok 5 - ... got an empty superclass list ok 6 - ... can add a superclass to anon class ok 7 - ... got the right superclass list ok 8 - ... no foo method ok 9 - ... added a method to my anon-class ok 10 - ... we have a foo method now ok 11 - The object isa Class::MOP::Class::__ANON__::SERIAL::1 ok 12 - The object isa Foo ok 13 - ... got the right return value of our foo method ok 14 - ... got the right return value of our bar method ok 15 - ... the package no longer exists ok 16 - The object isa Foo ok 17 - Class::MOP::Class::__ANON__::SERIAL::1->can('foo') ok 18 - Class::MOP::Class::__ANON__::SERIAL::1->can('bar') ok 19 - ... got the right return value of our foo method ok 20 - ... got the right return value of our bar method ok 21 - The object isa Class::MOP::Class::__ANON__::SERIAL::1 ok 22 - ... but the new instance is not a Foo ok 23 - ... and it can no longer call the foo method ok 24 - ... got as many classes as I would expect ok t/020_attribute.t ................................... 1..67 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Attribute; ok 3 - The object isa Class::MOP::Attribute ok 4 - ... $attr->name == $foo ok 5 - ... $attr does have an init_arg ok 6 - ... $attr init_arg is the name ok 7 - ... $attr does not have an accessor ok 8 - ... $attr does not have an reader ok 9 - ... $attr does not have an writer ok 10 - ... $attr does not have an default ok 11 - The object isa Class::MOP::Class ok 12 - ... attached a class successfully ok 13 - ... the class was associated correctly ok 14 - The object isa Class::MOP::Attribute ok 15 - ... but they are different instances ok 16 - ... the associated classes are the same though ok 17 - ... the associated classes are the same though ok 18 - ... the associated classes are the same though ok 19 - ... but they are the same inside ok 20 - The object isa Class::MOP::Attribute ok 21 - ... $attr->name == $foo ok 22 - ... $attr does have an init_arg ok 23 - ... $attr->init_arg == -foo ok 24 - ... $attr does have an default ok 25 - ... $attr->default == BAR ok 26 - ... $attr does not have an accessor ok 27 - ... $attr does not have an reader ok 28 - ... $attr does not have an writer ok 29 - The object isa Class::MOP::Attribute ok 30 - ... but they are different instances ok 31 - ... the associated classes are the same though ok 32 - ... the associated class is actually undef ok 33 - ... the associated class is actually undef ok 34 - ... but they are the same inside ok 35 - The object isa Class::MOP::Attribute ok 36 - ... $attr->name == $foo ok 37 - ... $attr does have an init_arg ok 38 - ... $attr->init_arg == -foo ok 39 - ... $attr does have an default ok 40 - ... $attr->default == BAR ok 41 - ... $attr does have an accessor ok 42 - ... $attr->accessor == foo ok 43 - ... $attr does not have an reader ok 44 - ... $attr does not have an writer ok 45 - The object isa Class::MOP::Attribute ok 46 - ... but they are different instances ok 47 - ... but they are the same inside ok 48 - The object isa Class::MOP::Attribute ok 49 - ... $attr->name == $foo ok 50 - ... $attr does have an init_arg ok 51 - ... $attr->init_arg == -foo ok 52 - ... $attr does have an default ok 53 - ... $attr->default == BAR ok 54 - ... $attr does have an reader ok 55 - ... $attr->reader == get_foo ok 56 - ... $attr does have an writer ok 57 - ... $attr->writer == set_foo ok 58 - ... $attr does not have an accessor ok 59 - The object isa Class::MOP::Attribute ok 60 - ... but they are different instances ok 61 - ... but they are the same inside ok 62 - The object isa Class::MOP::Attribute ok 63 - The object isa Class::MOP::Attribute ok 64 - ... but they are different instances ok 65 - ... we changes the name parameter ok 66 - ... $attr->name == $foo ok 67 - ... $attr_clone->name == $bar ok t/021_attribute_errors_and_edge_cases.t ............. 1..23 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Attribute; ok 3 - ... no refs for defaults ok 4 - ... no refs for defaults ok 5 - ... no refs for defaults ok 6 - ... no refs for defaults ok 7 - ... no refs for defaults ok 8 - ... no name argument ok 9 - ... bad name argument ok 10 - ... bad name argument ok 11 - ... attach_to_class died as expected ok 12 - ... attach_to_class died as expected ok 13 - ... attach_to_class died as expected ok 14 - ... bad reader format ok 15 - ... cannot find "fail" type generator ok 16 - ... failed to generate accessors correctly ok 17 - The object isa Class::MOP::Class ok 18 - Bar->can('has_test') ok 19 - ... removed the $test attribute ok 20 - ... Bar no longer has the "has_test" method ok 21 - ... can create accessors with reader/writers ok 22 - ... can create accessors with reader/writers ok 23 - ... can create accessors with reader/writers ok t/022_attribute_duplication.t ....................... 1..17 ok 1 - use Class::MOP; ok 2 - Foo->can('get_bar') ok 3 - Foo->can('set_bar') ok 4 - ... Foo has the attribute bar ok 5 - ... the bar attribute has the reader get_bar ok 6 - ... the bar attribute has the writer set_bar ok 7 - ... and the bar attribute is associated with Foo->meta ok 8 - ... Foo no longer has the get_bar method ok 9 - ... Foo no longer has the set_bar method ok 10 - Foo->can('assign_bar') ok 11 - ... Foo still has the attribute bar ok 12 - ... this is a new bar attribute ok 13 - ... and the old bar attribute is no longer associated with Foo->meta ok 14 - ... and the new bar attribute *is* associated with Foo->meta ok 15 - ... the bar attribute no longer has the reader get_bar ok 16 - ... the bar attribute no longer has the reader set_bar ok 17 - ... the bar attribute now has the reader assign_bar ok t/030_method.t ...................................... 1..25 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Method; ok 3 - ... instance and class both lead to the same meta ok 4 - ... our package is main:: ok 5 - ... our sub name is __ANON__ ok 6 - ... our subs full name is main::__ANON__ ok 7 - ... cant call this method without some code ok 8 - ... cant call this method without some code ok 9 - ... cant call this method without some code ok 10 - ... cant call this method with a class ok 11 - ... cant call this method with a class ok 12 - ... cant call this method with a class ok 13 - The object isa Class::MOP::Class ok 14 - ... Class::MOP::Method->has_method(wrap) ok 15 - ... our package is Class::MOP::Method ok 16 - ... our sub name is "wrap" ok 17 - ... Class::MOP::Method->has_method(package_name) ok 18 - ... our package is Class::MOP::Method ok 19 - ... our sub name is "package_name" ok 20 - ... Class::MOP::Method->has_method(name) ok 21 - ... our package is Class::MOP::Method ok 22 - ... our sub name is "name" ok 23 - ... bad args for &wrap ok 24 - ... bad args for &wrap ok 25 - ... bad args for &wrap ok t/031_method_modifiers.t ............................ 1..26 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Method; ok 3 - The object isa Class::MOP::Method ok 4 - ... got the right return value from method ok 5 - The object isa Class::MOP::Method::Wrapped ok 6 - The object isa Class::MOP::Method ok 7 - ... got the right return value from the wrapped method ok 8 - ... added the before modifier okay ok 9 - ... got the right return value from the wrapped method (w/ before) ok 10 - ... added the after modifier okay ok 11 - ... got the right return value from the wrapped method (w/ before) ok 12 - The object isa Class::MOP::Method ok 13 - ... got the right value from the wrapped method ok 14 - The object isa Class::MOP::Method::Wrapped ok 15 - The object isa Class::MOP::Method ok 16 - ... got the right value from the wrapped method ok 17 - ... added the around modifier okay ok 18 - ... got the right results back from the around methods (in list context) ok 19 - ... got the right results back from the around methods (in scalar context) ok 20 - The object isa Class::MOP::Method ok 21 - The object isa Class::MOP::Method::Wrapped ok 22 - The object isa Class::MOP::Method ok 23 - ... added the before modifier okay ok 24 - ... added the around modifier okay ok 25 - ... added the after modifier okay ok 26 - ... got the right tracelog from all our before/around/after methods ok t/040_metaclass.t ................................... 1..12 ok 1 - use metaclass; ok 2 - Foo->can('meta') ok 3 - The object isa FooMeta ok 4 - The object isa Class::MOP::Class ok 5 - Bar->can('meta') ok 6 - The object isa BarMeta ok 7 - The object isa Class::MOP::Class ok 8 - ... got the right attribute metaobject ok 9 - ... got the right method metaobject ok 10 - Baz->can('meta') ok 11 - The object isa Class::MOP::Class ok 12 - ... metaclasses must be subclass of Class::MOP::Class ok t/041_metaclass_incompatability.t ................... 1..7 ok 1 - use metaclass; ok 2 - ... Foo.meta => Foo::Meta is compatible ok 3 - ... Bar.meta => Bar::Meta is compatible ok 4 - ... Foo::Foo.meta => Bar::Meta is not compatible ok 5 - ... Bar::Bar.meta => Foo::Meta is not compatible ok 6 - ... FooBar.meta => FooBar::Meta is compatible ok 7 - ... FooBar2.meta => FooBar::Meta is compatible ok t/042_metaclass_incompatibility_dynamic.t ........... 1..7 ok 1 - use metaclass; ok 2 - ... Foo.meta => Foo::Meta is compatible ok 3 - ... Bar.meta => Bar::Meta is compatible ok 4 - ... Foo::Foo.meta => Bar::Meta is not compatible ok 5 - ... Bar::Bar.meta => Foo::Meta is not compatible ok 6 - ... FooBar.meta => FooBar::Meta is compatible ok 7 - ... FooBar2.meta => FooBar::Meta is compatible ok t/043_instance_metaclass_incompatibility.t .......... 1..7 ok 1 - use metaclass; ok 2 - ... Foo.meta => Foo::Meta is compatible ok 3 - ... Bar.meta => Bar::Meta is compatible ok 4 - ... Foo::Foo.meta => Bar::Meta is not compatible ok 5 - ... Bar::Bar.meta => Foo::Meta is not compatible ok 6 - ... FooBar.meta => FooBar::Meta is compatible ok 7 - ... FooBar2.meta => FooBar::Meta is compatible ok t/044_instance_metaclass_incompatibility_dynamic.t .. 1..7 ok 1 - use metaclass; ok 2 - ... Foo.meta => Foo::Meta is compatible ok 3 - ... Bar.meta => Bar::Meta is compatible ok 4 - ... Foo::Foo.meta => Bar::Meta is not compatible ok 5 - ... Bar::Bar.meta => Foo::Meta is not compatible ok 6 - ... FooBar.meta => FooBar::Meta is compatible ok 7 - ... FooBar2.meta => FooBar::Meta is compatible ok t/050_scala_style_mixin_composition.t ............... 1..4 ok 1 - The object isa ColoredPoint3D ok 2 - The object isa Point3D ok 3 - The object isa Point2D ok 4 - ... got the right toString method ok t/060_instance.t .................................... 1..47 ok 1 - use Class::MOP::Instance; ok 2 - Class::MOP::Instance->can('new') ok 3 - Class::MOP::Instance->can('create_instance') ok 4 - Class::MOP::Instance->can('bless_instance_structure') ok 5 - Class::MOP::Instance->can('get_all_slots') ok 6 - Class::MOP::Instance->can('initialize_all_slots') ok 7 - Class::MOP::Instance->can('deinitialize_all_slots') ok 8 - Class::MOP::Instance->can('get_slot_value') ok 9 - Class::MOP::Instance->can('set_slot_value') ok 10 - Class::MOP::Instance->can('initialize_slot') ok 11 - Class::MOP::Instance->can('deinitialize_slot') ok 12 - Class::MOP::Instance->can('is_slot_initialized') ok 13 - Class::MOP::Instance->can('weaken_slot_value') ok 14 - Class::MOP::Instance->can('strengthen_slot_value') ok 15 - Class::MOP::Instance->can('inline_get_slot_value') ok 16 - Class::MOP::Instance->can('inline_set_slot_value') ok 17 - Class::MOP::Instance->can('inline_initialize_slot') ok 18 - Class::MOP::Instance->can('inline_deinitialize_slot') ok 19 - Class::MOP::Instance->can('inline_is_slot_initialized') ok 20 - Class::MOP::Instance->can('inline_weaken_slot_value') ok 21 - Class::MOP::Instance->can('inline_strengthen_slot_value') ok 22 - The object isa Class::MOP::Instance ok 23 - ... get all slots for Foo ok 24 - The object isa Class::MOP::Instance ok 25 - ... they are not the same instance ok 26 - ... get all slots for Bar ok 27 - The object isa Foo ok 28 - The object isa Foo ok 29 - ... not the same instance ok 30 - ... but the same structure ok 31 - slot not initialized ok 32 - ... no value for slot ok 33 - slot initialized ok 34 - ... but no value for slot ok 35 - ... get slot value ok 36 - ... Foo cant moosen ok 37 - ... white box test of weaken ok 38 - weak value is fetchable ok 39 - return value not weak ok 40 - weak value destroyed ok 41 - value not weak yet ok 42 - weak value destroyed ok 43 - ... white box test of weaken ok 44 - ... white box test of weaken ok 45 - weak value can be strengthened ok 46 - slot deinitialized ok 47 - ... no value for slot ok t/061_instance_inline.t ............................. 1..16 ok 1 - use Class::MOP::Instance; ok 2 - ... got the right code for get_slot_value ok 3 - ... got the right code for set_slot_value ok 4 - ... got the right code for initialize_slot ok 5 - ... got the right code for get_slot_value ok 6 - ... got the right code for weaken_slot_value ok 7 - ... got the right code for strengthen_slot_value ok 8 - ... got the right code for get_slot_value ok 9 - ... got the right code for set_slot_value ok 10 - ... got the right code for initialize_slot ok 11 - ... got the right code for get_slot_value ok 12 - ... got the right code for weaken_slot_value ok 13 - ... got the right code for strengthen_slot_value ok 14 - ... got the right code string for accessor ok 15 - ... got the right code string for reader ok 16 - ... got the right code string for writer ok t/070_immutable_metaclass.t ......................... 1..77 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Class::Immutable; ok 3 - ... checking the Foo metaclass ok 4 - ... our class is mutable ok 5 - ... our class is not immutable ok 6 - ... changed Foo to be immutable ok 7 - ... make immutable now returns nothing ok 8 - ... our class is no longer mutable ok 9 - ... our class is now immutable ok 10 - The object isa Class::MOP::Class::Immutable ok 11 - The object isa Class::MOP::Class ok 12 - ... exception thrown as expected ok 13 - ... exception thrown as expected ok 14 - ... exception thrown as expected ok 15 - ... exception thrown as expected ok 16 - ... exception thrown as expected ok 17 - ... exception thrown as expected ok 18 - ... exception thrown as expected ok 19 - ... got the superclasses okay ok 20 - ... but could not set the superclasses okay ok 21 - ... got the meta instance okay ok 22 - The object isa Class::MOP::Instance ok 23 - ... and we know it is cached ok 24 - ... got the class precedence list okay ok 25 - ... we just have ourselves in the class precedence list ok 26 - ... got the attribute list okay ok 27 - ... got the right list of attributes ok 28 - ... checking the Bar metaclass ok 29 - ... our class is mutable ok 30 - ... our class is not immutable ok 31 - ... changed Bar to be immutable ok 32 - ... make immutable now returns nothing ok 33 - ... our class is no longer mutable ok 34 - ... our class is now immutable ok 35 - The object isa Class::MOP::Class::Immutable ok 36 - The object isa Class::MOP::Class ok 37 - ... exception thrown as expected ok 38 - ... exception thrown as expected ok 39 - ... exception thrown as expected ok 40 - ... exception thrown as expected ok 41 - ... exception thrown as expected ok 42 - ... exception thrown as expected ok 43 - ... exception thrown as expected ok 44 - ... got the superclasses okay ok 45 - ... but could not set the superclasses okay ok 46 - ... got the meta instance okay ok 47 - The object isa Class::MOP::Instance ok 48 - ... and we know it is cached ok 49 - ... got the class precedence list okay ok 50 - ... we just have ourselves in the class precedence list ok 51 - ... got the attribute list okay ok 52 - ... got the right list of attributes ok 53 - ... checking the Baz metaclass ok 54 - ... our class is mutable ok 55 - ... our class is not immutable ok 56 - ... changed Baz to be immutable ok 57 - ... make immutable now returns nothing ok 58 - ... our class is no longer mutable ok 59 - ... our class is now immutable ok 60 - The object isa Class::MOP::Class::Immutable ok 61 - The object isa Class::MOP::Class ok 62 - ... exception thrown as expected ok 63 - ... exception thrown as expected ok 64 - ... exception thrown as expected ok 65 - ... exception thrown as expected ok 66 - ... exception thrown as expected ok 67 - ... exception thrown as expected ok 68 - ... exception thrown as expected ok 69 - ... got the superclasses okay ok 70 - ... but could not set the superclasses okay ok 71 - ... got the meta instance okay ok 72 - The object isa Class::MOP::Instance ok 73 - ... and we know it is cached ok 74 - ... got the class precedence list okay ok 75 - ... we just have ourselves in the class precedence list ok 76 - ... got the attribute list okay ok 77 - ... got the right list of attributes ok t/071_immutable_w_custom_metaclass.t ................ 1..2 ok 1 - use Class::MOP; ok 2 - ... we survive the metaclass incompatability test ok t/072_immutable_w_constructors.t .................... 1..76 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Class::Immutable; ok 3 - ... checking the Foo metaclass ok 4 - The object isa Class::MOP::Method::Accessor ok 5 - The object isa Class::MOP::Method ok 6 - ... the bar accessor is not inlined ok 7 - ... our class is not immutable ok 8 - ... changed Foo to be immutable ok 9 - ... our class is now immutable ok 10 - The object isa Class::MOP::Class::Immutable ok 11 - The object isa Class::MOP::Class ok 12 - Foo->can('new') ok 13 - The object isa Foo ok 14 - ... got the right default value ok 15 - The object isa Foo ok 16 - ... got the right parameter value ok 17 - The object isa Class::MOP::Method::Accessor ok 18 - The object isa Class::MOP::Method ok 19 - ... the bar accessor is still not inlined ok 20 - ... checking the Bar metaclass ok 21 - The object isa Class::MOP::Method::Accessor ok 22 - The object isa Class::MOP::Method ok 23 - ... the bar accessor is not inlined ok 24 - The object isa Class::MOP::Method::Accessor ok 25 - The object isa Class::MOP::Method ok 26 - ... the baz accessor is not inlined ok 27 - ... our class is not immutable ok 28 - ... changed Bar to be immutable ok 29 - ... our class is now immutable ok 30 - The object isa Class::MOP::Class::Immutable ok 31 - The object isa Class::MOP::Class ok 32 - Bar->can('new') ok 33 - The object isa Bar ok 34 - ... got the right default value ok 35 - ... got the right default value ok 36 - The object isa Bar ok 37 - ... got the right parameter value ok 38 - ... got the right parameter value ok 39 - The object isa Class::MOP::Method::Accessor ok 40 - The object isa Class::MOP::Method ok 41 - ... the bar accessor is still not inlined ok 42 - The object isa Class::MOP::Method::Accessor ok 43 - The object isa Class::MOP::Method ok 44 - ... the baz accessor is not inlined ok 45 - ... checking the Bar metaclass ok 46 - The object isa Class::MOP::Method::Accessor ok 47 - The object isa Class::MOP::Method ok 48 - ... the bar accessor is not inlined ok 49 - The object isa Class::MOP::Method::Accessor ok 50 - The object isa Class::MOP::Method ok 51 - ... the baz accessor is inlined ok 52 - The object isa Class::MOP::Method::Accessor ok 53 - The object isa Class::MOP::Method ok 54 - ... the baz accessor is not inlined ok 55 - ... our class is not immutable ok 56 - ... changed Bar to be immutable ok 57 - ... our class is now immutable ok 58 - The object isa Class::MOP::Class::Immutable ok 59 - The object isa Class::MOP::Class ok 60 - ... no constructor was made ok 61 - The object isa Bar ok 62 - ... got the right default value ok 63 - ... got the right default value ok 64 - The object isa Baz ok 65 - ... got the right parameter value ok 66 - ... got the right parameter value ok 67 - ... got the right parameter value ok 68 - The object isa Class::MOP::Method::Accessor ok 69 - The object isa Class::MOP::Method ok 70 - ... the bar accessor is still not inlined ok 71 - The object isa Class::MOP::Method::Accessor ok 72 - The object isa Class::MOP::Method ok 73 - ... the baz accessor is not inlined ok 74 - The object isa Class::MOP::Method::Accessor ok 75 - The object isa Class::MOP::Method ok 76 - ... the baz accessor is not inlined ok t/080_meta_package.t ................................ 1..88 ok 1 - use Class::MOP; ok 2 - use Class::MOP::Package; ok 3 - ... the %foo slot has not been created yet ok 4 - ... the meta agrees ok 5 - ... created %Foo::foo successfully ok 6 - ... SCALAR shouldnt have been created too ok 7 - ... ARRAY shouldnt have been created too ok 8 - ... CODE shouldnt have been created too ok 9 - ... the %foo slot was created successfully ok 10 - ... the meta agrees ok 11 - ... our %foo was initialized correctly ok 12 - ... our %foo was initialized correctly ok 13 - ... got the right package variable back ok 14 - ... our %foo is the same as the metas ok 15 - ... our %foo was updated correctly ok 16 - ... our %foo was updated correctly ok 17 - ... the @bar slot has not been created yet ok 18 - ... created @Foo::bar successfully ok 19 - ... the @bar slot was created successfully ok 20 - ... the meta agrees ok 21 - ... SCALAR shouldnt have been created too ok 22 - ... HASH shouldnt have been created too ok 23 - ... CODE shouldnt have been created too ok 24 - ... our @bar was initialized correctly ok 25 - ... our @bar was initialized correctly ok 26 - ... the $baz slot has not been created yet ok 27 - ... created $Foo::baz successfully ok 28 - ... the $baz slot was created successfully ok 29 - ... the meta agrees ok 30 - ... ARRAY shouldnt have been created too ok 31 - ... HASH shouldnt have been created too ok 32 - ... CODE shouldnt have been created too ok 33 - ... got the right value back ok 34 - ... our $baz was assigned to correctly ok 35 - ... the meta agrees ok 36 - ... the &funk slot has not been created yet ok 37 - ... created &Foo::funk successfully ok 38 - ... the &funk slot was created successfully ok 39 - ... the meta agrees ok 40 - ... SCALAR shouldnt have been created too ok 41 - ... ARRAY shouldnt have been created too ok 42 - ... HASH shouldnt have been created too ok 43 - ... our &funk exists ok 44 - ... got the right value from the function ok 45 - ... created @Foo::foo successfully ok 46 - ... the @foo slot was added successfully ok 47 - ... got the right values for @Foo::foo ok 48 - ... created &Foo::foo successfully ok 49 - ... the meta agrees ok 50 - ... got the right value for &Foo::foo ok 51 - ... created $Foo::foo successfully ok 52 - ... the meta agrees ok 53 - ... got the right scalar value back ok 54 - ... got the right value from the scalar ok 55 - ... removed %Foo::foo successfully ok 56 - ... the %foo slot was removed successfully ok 57 - ... the @foo slot still exists ok 58 - ... the &foo slot still exists ok 59 - ... the $foo slot still exists ok 60 - ... got the right values for @Foo::foo ok 61 - ... got the right value for &Foo::foo ok 62 - ... got the right value for $Foo::foo ok 63 - ... the %foo slot has been removed successfully ok 64 - ... the @foo slot has NOT been removed ok 65 - ... the &foo slot has NOT been removed ok 66 - ... the $foo slot has NOT been removed ok 67 - ... removed &Foo::foo successfully ok 68 - ... the &foo slot no longer exists ok 69 - ... the @foo slot still exists ok 70 - ... the $foo slot still exists ok 71 - ... got the right values for @Foo::foo ok 72 - ... got the right value for $Foo::foo ok 73 - ... the %foo slot has been removed successfully ok 74 - ... the &foo slot has now been removed ok 75 - ... the @foo slot has NOT been removed ok 76 - ... the $foo slot has NOT been removed ok 77 - ... removed $Foo::foo successfully ok 78 - ... the $foo slot no longer exists ok 79 - ... the @foo slot still exists ok 80 - ... got the right values for @Foo::foo ok 81 - ... the %foo slot has been removed successfully ok 82 - ... the &foo slot has now been removed ok 83 - ... the $foo slot has now been removed ok 84 - ... the @foo slot has NOT been removed ok 85 - ... no sigil for bar ok 86 - ... no sigil for bar ok 87 - ... no sigil for bar ok 88 - ... no sigil for bar ok t/081_meta_package_extension.t ...................... 1..16 ok 1 - use Class::MOP; ok 2 - The object isa My::Meta::Package ok 3 - The object isa Class::MOP::Package ok 4 - ... the %foo slot has not been created yet ok 5 - ... the meta agrees ok 6 - ... the %foo symbol is created succcessfully ok 7 - ... the %foo slot has not been created in the actual Foo package ok 8 - ... the meta agrees ok 9 - ... got the right package variable back ok 10 - ... our %foo is the same as the metas ok 11 - ... the @bar slot has not been created yet ok 12 - ... created @Foo::bar successfully ok 13 - ... the @bar slot has still not been created ok 14 - ... the %baz slot has not been created yet ok 15 - ... created %Foo::baz successfully ok 16 - ... the %baz slot has still not been created ok t/100_BinaryTree_test.t ............................. 1..68 ok 1 - use Class::MOP; ok 2 - use t::lib::BinaryTree; ok 3 - BinaryTree->can('new') ok 4 - BinaryTree->can('setLeft') ok 5 - BinaryTree->can('setRight') ok 6 - The object isa BinaryTree ok 7 - BinaryTree->can('isRoot') ok 8 - ... this is the root ok 9 - BinaryTree->can('isLeaf') ok 10 - ... this is not a leaf node ok 11 - ... this is a leaf node ok 12 - BinaryTree->can('hasLeft') ok 13 - ... this has a left node ok 14 - BinaryTree->can('hasRight') ok 15 - ... this has a right node ok 16 - BinaryTree->can('getUID') ok 17 - ... our UID is derived from the stringified object ok 18 - BinaryTree->can('getNodeValue') ok 19 - ... got what we expected ok 20 - BinaryTree->can('getLeft') ok 21 - The object isa BinaryTree ok 22 - ... got what we expected ok 23 - BinaryTree->can('getParent') ok 24 - The object isa BinaryTree ok 25 - .. got what we expected ok 26 - BinaryTree->can('getRight') ok 27 - The object isa BinaryTree ok 28 - ... got what we expected ok 29 - BinaryTree->can('getParent') ok 30 - The object isa BinaryTree ok 31 - .. got what we expected ok 32 - BinaryTree->can('setUID') ok 33 - ... our UID is not what we expected ok 34 - BinaryTree->can('setNodeValue') ok 35 - ... got what we expected ok 36 - BinaryTree->can('removeLeft') ok 37 - The object isa BinaryTree ok 38 - ... we dont have a left node anymore ok 39 - ... and we are not a leaf node ok 40 - ... we have our left node again ok 41 - ... and it is what we told it to be ok 42 - The object isa BinaryTree ok 43 - ... our left leaf is a leaf ok 44 - ... we dont have a left leaf node anymore ok 45 - ... we have our left leaf node again ok 46 - ... and it is what we told it to be ok 47 - BinaryTree->can('removeRight') ok 48 - The object isa BinaryTree ok 49 - ... we dont have a right node anymore ok 50 - ... and we are not a leaf node ok 51 - ... we have our right node again ok 52 - ... and it is what we told it to be ok 53 - The object isa BinaryTree ok 54 - ... our right leaf is a leaf ok 55 - ... we dont have a right leaf node anymore ok 56 - ... we have our right leaf node again ok 57 - ... and it is what we told it to be ok 58 - The object isa BinaryTree ok 59 - BinaryTree->can('size') ok 60 - ... we have 14 nodes in the tree ok 61 - BinaryTree->can('height') ok 62 - ... the tree is 6 nodes tall ok 63 - The object isa BinaryTree ok 64 - ... check that our tree starts out correctly ok 65 - BinaryTree->can('mirror') ok 66 - ... check that our tree ends up correctly ok 67 - The object isa BinaryTree ok 68 - ... this should be the reverse of the original ok t/101_InstanceCountingClass_test.t .................. 1..12 ok 1 - use Class::MOP; ok 2 - require 'examples/InstanceCountingClass.pod'; ok 3 - ... our Foo count is 0 ok 4 - ... our Bar count is 0 ok 5 - The object isa Foo ok 6 - ... our Foo count is now 1 ok 7 - ... our Bar count is still 0 ok 8 - The object isa Bar ok 9 - ... our Foo count is still 1 ok 10 - ... our Bar count is now 1 ok 11 - ... our Foo count is now 10 ok 12 - ... our Bar count is still 1 ok t/102_InsideOutClass_test.t ......................... 1..89 ok 1 - use Class::MOP; ok 2 - require 'examples/InsideOutClass.pod'; ok 3 - The object isa Foo ok 4 - ... Foo is made with SCALAR ok 5 - Foo->can('foo') ok 6 - Foo->can('has_foo') ok 7 - Foo->can('get_bar') ok 8 - Foo->can('set_bar') ok 9 - ... Foo::foo is not defined yet ok 10 - ... Foo::foo is not defined yet ok 11 - ... Foo::bar has been initialized ok 12 - ... Foo::foo is defined now ok 13 - ... Foo::foo == "This is Foo" ok 14 - ... Foo::bar == 42 ok 15 - The object isa Foo ok 16 - ... Foo is made with SCALAR ok 17 - ... Foo2::foo is not defined yet ok 18 - ... Foo2::foo is not defined yet ok 19 - ... Foo2::bar has been initialized ok 20 - ... Foo2::bar == DONT PANIC ok 21 - ... Foo::bar == 42 ok 22 - The object isa Bar ok 23 - The object isa Foo ok 24 - ... Bar is made with SCALAR ok 25 - Bar->can('foo') ok 26 - Bar->can('has_foo') ok 27 - Bar->can('get_bar') ok 28 - Bar->can('set_bar') ok 29 - Bar->can('baz') ok 30 - Bar->can('has_baz') ok 31 - ... Bar::foo is not defined yet ok 32 - ... Bar::foo is not defined yet ok 33 - ... Bar::bar has been initialized ok 34 - ... Bar::baz is not defined yet ok 35 - ... Bar::baz is not defined yet ok 36 - ... Bar::foo is defined now ok 37 - ... Bar::foo == "This is Bar" ok 38 - ... Bar::bar has been initialized ok 39 - ... Bar::baz is defined now ok 40 - ... Bar::foo == "This is Bar" ok 41 - ... Bar::foo == "This is Bar" ok 42 - ... Bar::bar has been initialized ok 43 - The object isa Bar::Baz ok 44 - The object isa Bar ok 45 - The object isa Foo ok 46 - The object isa Baz ok 47 - ... Bar::Baz is made with SCALAR ok 48 - Bar::Baz->can('foo') ok 49 - Bar::Baz->can('has_foo') ok 50 - Bar::Baz->can('get_bar') ok 51 - Bar::Baz->can('set_bar') ok 52 - Bar::Baz->can('baz') ok 53 - Bar::Baz->can('has_baz') ok 54 - Bar::Baz->can('bling') ok 55 - ... Bar::Baz::bar has been initialized ok 56 - ... Bar::Baz::bling has been initialized ok 57 - ... Bar::Baz::foo is not defined yet ok 58 - ... Bar::Baz::foo is not defined yet ok 59 - ... Bar::Baz::baz is not defined yet ok 60 - ... Bar::Baz::baz is not defined yet ok 61 - ... Bar::Baz::foo is defined now ok 62 - ... Bar::Baz::foo == "This is Bar" ok 63 - ... Bar::Baz::bar has been initialized ok 64 - ... Bar::Baz::bling has been initialized ok 65 - ... Bar::Baz::baz is defined now ok 66 - ... Bar::Baz::foo == "This is Bar" ok 67 - ... Bar::Baz::foo == "This is Bar" ok 68 - ... Bar::Baz::bar has been initialized ok 69 - ... Bar::Baz::bling has been initialized ok 70 - ... there is a foo package variable in Foo ok 71 - ... there is a bar package variable in Foo ok 72 - ... got the right number of entries for Foo::foo ok 73 - ... got the right number of entries for Foo::bar ok 74 - ... no foo package variable in Bar ok 75 - ... no bar package variable in Bar ok 76 - ... there is a baz package variable in Bar ok 77 - ... got the right number of entries for Bar::foo ok 78 - ... got the right number of entries for Bar::bar ok 79 - ... got the right number of entries for Bar::baz ok 80 - ... there is a bar package variable in Baz ok 81 - ... got the right number of entries for Baz::bling ok 82 - ... no foo package variable in Bar::Baz ok 83 - ... no bar package variable in Bar::Baz ok 84 - ... no baz package variable in Bar::Baz ok 85 - ... no bar package variable in Baz::Baz ok 86 - ... got the right number of entries for Bar::Baz::foo ok 87 - ... got the right number of entries for Bar::Baz::bar ok 88 - ... got the right number of entries for Bar::Baz::baz ok 89 - ... got the right number of entries for Bar::Baz::bling ok t/103_Perl6Attribute_test.t ......................... 1..10 ok 1 - use Class::MOP; ok 2 - require 'examples/Perl6Attribute.pod'; ok 3 - The object isa Foo ok 4 - Foo->can('foo') ok 5 - Foo->can('bar') ok 6 - Foo->can('baz') ok 7 - ... Foo.foo == undef ok 8 - ... Foo.foo == 42 ok 9 - ... Foo.bar == [] ok 10 - ... Foo.baz == {} ok t/104_AttributesWithHistory_test.t .................. 1..28 ok 1 - use Class::MOP; ok 2 - require 'examples/AttributesWithHistory.pod'; ok 3 - The object isa Foo ok 4 - Foo->can('foo') ok 5 - Foo->can('get_foo_history') ok 6 - Foo->can('set_bar') ok 7 - Foo->can('get_bar') ok 8 - Foo->can('get_bar_history') ok 9 - The object isa Foo ok 10 - ... foo is not yet defined ok 11 - ... got correct empty history for foo ok 12 - ... foo2 is not yet defined ok 13 - ... got correct empty history for foo2 ok 14 - ... foo == 42 ok 15 - ... got correct history for foo ok 16 - ... foo2 is still not yet defined ok 17 - ... still got correct empty history for foo2 ok 18 - ... foo is still == 42 ok 19 - ... still got correct history for foo ok 20 - ... foo2 == 100 ok 21 - ... got correct empty history for foo2 ok 22 - ... got correct history for foo ok 23 - ... bar is not yet defined ok 24 - ... got correct empty history for foo ok 25 - ... bar == "FOO" ok 26 - ... got correct history for foo ok 27 - ... got correct history for bar ok 28 - ... still have the correct history for foo ok t/105_ClassEncapsulatedAttributes_test.t ............ 1..29 ok 1 - use Class::MOP; ok 2 - require 'examples/ClassEncapsulatedAttributes.pod'; ok 3 - The object isa Foo ok 4 - Foo->can('foo') ok 5 - Foo->can('has_foo') ok 6 - Foo->can('get_bar') ok 7 - Foo->can('set_bar') ok 8 - The object isa Bar ok 9 - Bar->can('foo') ok 10 - Bar->can('has_foo') ok 11 - Bar->can('get_bar') ok 12 - Bar->can('set_bar') ok 13 - ... Foo::has_foo == 1 ok 14 - ... Bar::has_foo == 1 ok 15 - ... got the right default value for Foo::foo ok 16 - ... got the right default value for Bar::foo ok 17 - ... got the right default value for Bar::SUPER::foo ok 18 - ... successfully set Foo::foo through Bar::SUPER::foo ok 19 - ... BAR::SUPER::has_foo == 0 ok 20 - ... Foo::has_foo (is still) 1 ok 21 - The object isa Bar ok 22 - Bar->can('foo') ok 23 - Bar->can('has_foo') ok 24 - Bar->can('get_bar') ok 25 - Bar->can('set_bar') ok 26 - ... Bar::has_foo == 1 ok 27 - ... Bar::SUPER_has_foo == 1 ok 28 - ... got the right default value for Bar::foo ok 29 - ... got the right default value for Bar::SUPER::foo ok t/106_LazyClass_test.t .............................. 1..26 ok 1 - use Class::MOP; ok 2 - require 'examples/LazyClass.pod'; ok 3 - The object isa BinaryTree ok 4 - ... node attribute has been initialized yet ok 5 - ... left attribute has not been initialized yet ok 6 - ... right attribute has not been initialized yet ok 7 - The object isa BinaryTree ok 8 - The object isa BinaryTree ok 9 - ... left attribute has now been initialized ok 10 - ... right attribute has now been initialized ok 11 - ... node attribute has not been initialized yet ok 12 - ... left attribute has not been initialized yet ok 13 - ... right attribute has not been initialized yet ok 14 - ... node attribute has not been initialized yet ok 15 - ... left attribute has not been initialized yet ok 16 - ... right attribute has not been initialized yet ok 17 - ... the left node is uninitialized ok 18 - ... node attribute has now been initialized ok 19 - ... the left node == 1 ok 20 - ... left attribute still has not been initialized yet ok 21 - ... right attribute still has not been initialized yet ok 22 - ... the right node is uninitialized ok 23 - ... node attribute has now been initialized ok 24 - ... the right node == 1 ok 25 - ... left attribute still has not been initialized yet ok 26 - ... right attribute still has not been initialized yet ok t/107_C3MethodDispatchOrder_test.t .................. 1..5 ok 1 - use Class::MOP; ok 2 - require 'examples/C3MethodDispatchOrder.pod'; ok 3 - ... got the right MRO for Diamond_D ok 4 - ... got the right dispatch order ok 5 - ... can(method) resolved itself as expected ok t/108_ArrayBasedStorage_test.t ...................... 1..69 ok 1 - use Class::MOP; ok 2 - require 'examples/ArrayBasedStorage.pod'; ok 3 - The object isa Foo ok 4 - ... Foo is made with ARRAY ok 5 - Foo->can('foo') ok 6 - Foo->can('has_foo') ok 7 - Foo->can('get_bar') ok 8 - Foo->can('set_bar') ok 9 - ... Foo::foo is not defined yet ok 10 - ... Foo::foo is not defined yet ok 11 - ... Foo::bar has been initialized ok 12 - ... Foo::foo is defined now ok 13 - ... Foo::foo == "This is Foo" ok 14 - ... Foo::bar == 42 ok 15 - The object isa Foo ok 16 - ... Foo is made with ARRAY ok 17 - ... Foo2::foo is not defined yet ok 18 - ... Foo2::foo is not defined yet ok 19 - ... Foo2::bar has been initialized ok 20 - ... Foo2::bar == DONT PANIC ok 21 - ... Foo::bar == 42 ok 22 - The object isa Bar ok 23 - The object isa Foo ok 24 - ... Bar is made with ARRAY ok 25 - Bar->can('foo') ok 26 - Bar->can('has_foo') ok 27 - Bar->can('get_bar') ok 28 - Bar->can('set_bar') ok 29 - Bar->can('baz') ok 30 - Bar->can('has_baz') ok 31 - ... Bar::foo is not defined yet ok 32 - ... Bar::foo is not defined yet ok 33 - ... Bar::bar has been initialized ok 34 - ... Bar::baz is not defined yet ok 35 - ... Bar::baz is not defined yet ok 36 - ... Bar::foo is defined now ok 37 - ... Bar::foo == "This is Bar" ok 38 - ... Bar::bar has been initialized ok 39 - ... Bar::baz is defined now ok 40 - ... Bar::foo == "This is Bar" ok 41 - ... Bar::foo == "This is Bar" ok 42 - ... Bar::bar has been initialized ok 43 - The object isa Bar::Baz ok 44 - The object isa Bar ok 45 - The object isa Foo ok 46 - The object isa Baz ok 47 - ... Bar::Baz is made with ARRAY ok 48 - Bar::Baz->can('foo') ok 49 - Bar::Baz->can('has_foo') ok 50 - Bar::Baz->can('get_bar') ok 51 - Bar::Baz->can('set_bar') ok 52 - Bar::Baz->can('baz') ok 53 - Bar::Baz->can('has_baz') ok 54 - Bar::Baz->can('bling') ok 55 - ... Bar::Baz::bar has been initialized ok 56 - ... Bar::Baz::bling has been initialized ok 57 - ... Bar::Baz::foo is not defined yet ok 58 - ... Bar::Baz::foo is not defined yet ok 59 - ... Bar::Baz::baz is not defined yet ok 60 - ... Bar::Baz::baz is not defined yet ok 61 - ... Bar::Baz::foo is defined now ok 62 - ... Bar::Baz::foo == "This is Bar" ok 63 - ... Bar::Baz::bar has been initialized ok 64 - ... Bar::Baz::bling has been initialized ok 65 - ... Bar::Baz::baz is defined now ok 66 - ... Bar::Baz::foo == "This is Bar" ok 67 - ... Bar::Baz::foo == "This is Bar" ok 68 - ... Bar::Baz::bar has been initialized ok 69 - ... Bar::Baz::bling has been initialized ok # Failed test '... B does have an alias to the method hello' # at t/200_Class_C3_compatibility.t line 59. # Failed test '... D does have an alias to the method hello' # at t/200_Class_C3_compatibility.t line 63. # Looks like you failed 2 tests of 7. t/200_Class_C3_compatibility.t ...................... 1..7 ok 1 - ... got the right MRO for Diamond_D ok 2 - ... A has a method hello ok 3 - ... B does not have a method hello not ok 4 - ... B does have an alias to the method hello ok 5 - ... C has a method hello ok 6 - ... D does not have a method hello not ok 7 - ... D does have an alias to the method hello Dubious, test returned 2 (wstat 512, 0x200) Failed 2/7 subtests t/300_random_eval_bug.t ............................. 1..2 ok 1 - use Class::MOP; ok 2 - ... we die correctly with bad args ok t/pod.t ............................................. 1..13 ok 1 - POD test for blib/lib/metaclass.pm ok 2 - POD test for blib/lib/Class/MOP.pm ok 3 - POD test for blib/lib/Class/MOP/Method.pm ok 4 - POD test for blib/lib/Class/MOP/Instance.pm ok 5 - POD test for blib/lib/Class/MOP/Class.pm ok 6 - POD test for blib/lib/Class/MOP/Object.pm ok 7 - POD test for blib/lib/Class/MOP/Attribute.pm ok 8 - POD test for blib/lib/Class/MOP/Module.pm ok 9 - POD test for blib/lib/Class/MOP/Package.pm ok 10 - POD test for blib/lib/Class/MOP/Method/Accessor.pm ok 11 - POD test for blib/lib/Class/MOP/Method/Constructor.pm ok 12 - POD test for blib/lib/Class/MOP/Method/Wrapped.pm ok 13 - POD test for blib/lib/Class/MOP/Class/Immutable.pm ok t/pod_coverage.t .................................... 1..13 ok 1 - Pod coverage on metaclass ok 2 - Pod coverage on Class::MOP ok 3 - Pod coverage on Class::MOP::Method ok 4 - Pod coverage on Class::MOP::Instance ok 5 - Pod coverage on Class::MOP::Class ok 6 - Pod coverage on Class::MOP::Object ok 7 - Pod coverage on Class::MOP::Attribute ok 8 - Pod coverage on Class::MOP::Module ok 9 - Pod coverage on Class::MOP::Package ok 10 - Pod coverage on Class::MOP::Method::Accessor ok 11 - Pod coverage on Class::MOP::Method::Constructor ok 12 - Pod coverage on Class::MOP::Method::Wrapped ok 13 - Pod coverage on Class::MOP::Class::Immutable ok Test Summary Report ------------------- t/002_class_precedence_list.t (Wstat: 65280 Tests: 3 Failed: 0) Non-zero exit status: 255 Parse errors: Bad plan. You planned 6 tests but ran 3. t/003_methods.t (Wstat: 65280 Tests: 4 Failed: 1) Failed test: 4 Non-zero exit status: 255 Parse errors: Bad plan. You planned 64 tests but ran 4. t/200_Class_C3_compatibility.t (Wstat: 512 Tests: 7 Failed: 2) Failed tests: 4, 7 Non-zero exit status: 2 Files=47, Tests=1533, 17 wallclock secs ( 1.02 usr 0.27 sys + 15.34 cusr 1.31 csys = 17.94 CPU) Result: FAIL Failed 3/47 test programs. 3/1533 subtests failed. make: *** [test_dynamic] Error 255 STEVAN/Class-MOP-0.36.tar.gz make test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports STEVAN/Class-MOP-0.36.tar.gz Finished 2012-03-29T02:29:39