Fix ArrayBasedStorage to define is_inlinable{ 1 }

diff --git a/examples/ArrayBasedStorage.pod b/examples/ArrayBasedStorage.pod
index 5c0369c..e427227 100644 (file)
--- a/examples/ArrayBasedStorage.pod
+++ b/examples/ArrayBasedStorage.pod
@@ -33,6 +33,8 @@ 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'} }