From: gfx Date: Thu, 13 Aug 2009 08:10:55 +0000 (+0900) Subject: Revert "Fix example to define sub is_inline{ 0 }" X-Git-Tag: 0.92_01~25^2~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0934ba5cda7c1afcfb3fa58d50b8c47be64f0059;p=gitmo%2FClass-MOP.git Revert "Fix example to define sub is_inline{ 0 }" This reverts commit 640e075762ff5c90fd088fe39df040a0aabe366c. --- diff --git a/examples/ArrayBasedStorage.pod b/examples/ArrayBasedStorage.pod index e427227..5c0369c 100644 --- a/examples/ArrayBasedStorage.pod +++ b/examples/ArrayBasedStorage.pod @@ -33,8 +33,6 @@ sub clone_instance { $self->bless_instance_structure([ @$instance ]); } -sub is_inlinable{ 0 } - # operations on meta instance sub get_slot_index_map { (shift)->{'slot_index_map'} } diff --git a/examples/AttributesWithHistory.pod b/examples/AttributesWithHistory.pod index a4e17ab..e7ae1c2 100644 --- a/examples/AttributesWithHistory.pod +++ b/examples/AttributesWithHistory.pod @@ -45,8 +45,6 @@ our $VERSION = '0.01'; use base 'Class::MOP::Method::Accessor'; -sub is_inline{ 0 } - # generate the methods sub _generate_history_accessor_method { diff --git a/examples/InsideOutClass.pod b/examples/InsideOutClass.pod index d5c5777..07da94f 100644 --- a/examples/InsideOutClass.pod +++ b/examples/InsideOutClass.pod @@ -43,8 +43,6 @@ use Scalar::Util 'refaddr'; use base 'Class::MOP::Method::Accessor'; -sub is_inline{ 0 } - ## Method generation helpers sub _generate_accessor_method { diff --git a/examples/LazyClass.pod b/examples/LazyClass.pod index cc6ab60..0c87b3a 100644 --- a/examples/LazyClass.pod +++ b/examples/LazyClass.pod @@ -38,8 +38,6 @@ our $VERSION = '0.01'; use base 'Class::MOP::Method::Accessor'; -sub is_inline{ 0 } - sub _generate_accessor_method { my $attr = (shift)->associated_attribute; diff --git a/t/072_immutable_w_constructors.t b/t/072_immutable_w_constructors.t index 370787d..906d359 100644 --- a/t/072_immutable_w_constructors.t +++ b/t/072_immutable_w_constructors.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 79; +use Test::More tests => 91; use Test::Exception; use Class::MOP; @@ -76,7 +76,7 @@ use Class::MOP; isa_ok($bar_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bar_accessor, 'Class::MOP::Method'); -# ok(!$bar_accessor->is_inline, '... the bar accessor is not inlined'); + ok(!$bar_accessor->is_inline, '... the bar accessor is not inlined'); } ok(!$meta->is_immutable, '... our class is not immutable'); @@ -122,7 +122,7 @@ use Class::MOP; isa_ok($bar_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bar_accessor, 'Class::MOP::Method'); -# ok(!$bar_accessor->is_inline, '... the bar accessor is still not inlined'); + ok(!$bar_accessor->is_inline, '... the bar accessor is still not inlined'); } } @@ -135,13 +135,13 @@ use Class::MOP; isa_ok($bar_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bar_accessor, 'Class::MOP::Method'); -# ok(!$bar_accessor->is_inline, '... the bar accessor is not inlined'); + ok(!$bar_accessor->is_inline, '... the bar accessor is not inlined'); my $baz_accessor = $meta->get_method('baz'); isa_ok($baz_accessor, 'Class::MOP::Method::Accessor'); isa_ok($baz_accessor, 'Class::MOP::Method'); -# ok(!$baz_accessor->is_inline, '... the baz accessor is not inlined'); + ok(!$baz_accessor->is_inline, '... the baz accessor is not inlined'); } ok(!$meta->is_immutable, '... our class is not immutable'); @@ -179,13 +179,13 @@ use Class::MOP; isa_ok($bar_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bar_accessor, 'Class::MOP::Method'); -# ok(!$bar_accessor->is_inline, '... the bar accessor is still not inlined'); + ok(!$bar_accessor->is_inline, '... the bar accessor is still not inlined'); my $baz_accessor = $meta->get_method('baz'); isa_ok($baz_accessor, 'Class::MOP::Method::Accessor'); isa_ok($baz_accessor, 'Class::MOP::Method'); -# ok($baz_accessor->is_inline, '... the baz accessor is not inlined'); + ok($baz_accessor->is_inline, '... the baz accessor is not inlined'); } } @@ -198,19 +198,19 @@ use Class::MOP; isa_ok($bar_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bar_accessor, 'Class::MOP::Method'); -# ok(!$bar_accessor->is_inline, '... the bar accessor is not inlined'); + ok(!$bar_accessor->is_inline, '... the bar accessor is not inlined'); my $baz_accessor = $meta->find_method_by_name('baz'); isa_ok($baz_accessor, 'Class::MOP::Method::Accessor'); isa_ok($baz_accessor, 'Class::MOP::Method'); -# ok($baz_accessor->is_inline, '... the baz accessor is inlined'); + ok($baz_accessor->is_inline, '... the baz accessor is inlined'); my $bah_accessor = $meta->get_method('bah'); isa_ok($bah_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bah_accessor, 'Class::MOP::Method'); -# ok(!$bah_accessor->is_inline, '... the baz accessor is not inlined'); + ok(!$bah_accessor->is_inline, '... the baz accessor is not inlined'); } ok(!$meta->is_immutable, '... our class is not immutable'); @@ -248,19 +248,19 @@ use Class::MOP; isa_ok($bar_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bar_accessor, 'Class::MOP::Method'); -# ok(!$bar_accessor->is_inline, '... the bar accessor is still not inlined'); + ok(!$bar_accessor->is_inline, '... the bar accessor is still not inlined'); my $baz_accessor = $meta->find_method_by_name('baz'); isa_ok($baz_accessor, 'Class::MOP::Method::Accessor'); isa_ok($baz_accessor, 'Class::MOP::Method'); -# ok($baz_accessor->is_inline, '... the baz accessor is not inlined'); + ok($baz_accessor->is_inline, '... the baz accessor is not inlined'); my $bah_accessor = $meta->get_method('bah'); isa_ok($bah_accessor, 'Class::MOP::Method::Accessor'); isa_ok($bah_accessor, 'Class::MOP::Method'); -# ok($bah_accessor->is_inline, '... the baz accessor is not inlined'); + ok($bah_accessor->is_inline, '... the baz accessor is not inlined'); } }