Class::Struct has an incomplete tied array package

	Message-ID: <yek1zr3vi70.fsf@elva.cyberscience.com>

p4raw-id: //depot/maint-5.005/perl@1688

diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm
index a39d1ac..8fddfbf 100644 (file)
--- a/lib/Class/Struct.pm
+++ b/lib/Class/Struct.pm
@@ -40,6 +40,11 @@ sub printem {
         $self->[$index];
     }
 
+    sub FETCHSIZE {
+        my $self = shift;
+        return scalar(@$self);
+    }
+
     sub DESTROY { }
 }