The array instance cannot be inlined - we need to say that explicitly

diff --git a/examples/ArrayBasedStorage.pod b/examples/ArrayBasedStorage.pod
index 5c0369c..3577b58 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'} }