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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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');
     }
 }