package Tie::Array::Null;
# $Id: Cycle.pm,v 1.12 2005/03/08 22:29:30 comdog Exp $
use strict;
use base qw(Tie::Array);

use vars qw( $VERSION );
$VERSION = 0.01;

sub TIEARRAY  { bless \ $_[1], $_[0] }
sub FETCHSIZE { ${ $_[0] } }
sub STORE     { undef }
sub FETCH     {	undef }
sub STORESIZE {   }
sub EXTEND    {   }
sub CLEAR     {   }
sub EXISTS    { 0 }
sub DESTROY   {   }
	
"Tie::Array::Null";