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";

##</code><code>##

#!/usr/bin/perl
# $Id$
use strict;

use Test::More 'no_plan';

use Devel::Size qw(total_size); 
use Tie::Array::Null;

foreach my $size ( 0, 1, 5, 10, 100 )
	{
	report( $size )
	}

pass();

sub report {
	my $size = shift;

	my $object = tie my( @tied_array ), 'Tie::Array::Null', $size;
	isa_ok( $object, 'Tie::Array::Null' );
	
	my $tied_array_size = total_size( \@tied_array );
	
	my @regular_array = ();

	print STDERR "\n----Testing for size $size-----\n";
	print STDERR "Tied array size before is " . 
		total_size( \@tied_array ) . "\n";
	print STDERR "Regular array size before is " . 
		total_size( \@regular_array ) . "\n";
	
	
	print STDERR "-" x 73, "\n";
	printf STDERR "%5s  %5s  %5s  %5s\n", qw(iter tied len reg);
	
	for( my $i = 0; $i < 1000; $i++ )
		{
		$tied_array[$i] = 'T';
		push @regular_array, 'T';
		unless( $i % 100 )
			{
			printf STDERR "%5d  %5d  %5d  %5d\n",
				$i,
				total_size( \@tied_array ),
				total_size( \$object ),
				total_size( \@regular_array );
			}
		}
	}

##</code><code>##

----Testing for size 0-----
Tied array size before is 108
Regular array size before is 56
--------------------------------------------------------------------
 iter   tied    obj    reg
    0    108     62     94
  100    108     62   3174
  200    108     62   6286
  300    108     62   9910
  400    108     62  12510
  500    108     62  15110
  600    108     62  19758
  700    108     62  22358
  800    108     62  24958
  900    108     62  27558

----Testing for size 1-----
Tied array size before is 220
Regular array size before is 4132
--------------------------------------------------------------------
 iter   tied    obj    reg
    0    220     62   4158
  100    220     62   6758
  200    220     62   9358
  300    220     62  11958
  400    220     62  14558
  500    220     62  17158
  600    220     62  19758
  700    220     62  22358
  800    220     62  24958
  900    220     62  27558

----Testing for size 5-----
Tied array size before is 556
Regular array size before is 4132
-------------------------------------------------------------------
 iter   tied    obj    reg
    0    556     62   4158
  100    556     62   6758
  200    556     62   9358
  300    556     62  11958
  400    556     62  14558
  500    556     62  17158
  600    556     62  19758
  700    556     62  22358
  800    556     62  24958
  900    556     62  27558

----Testing for size 10-----
Tied array size before is 976
Regular array size before is 4132
--------------------------------------------------------------------
 iter   tied    obj    reg
    0    976     63   4158
  100    976     63   6758
  200    976     63   9358
  300    976     63  11958
  400    976     63  14558
  500    976     63  17158
  600    976     63  19758
  700    976     63  22358
  800    976     63  24958
  900    976     63  27558

----Testing for size 100-----
Tied array size before is 8536
Regular array size before is 4132
--------------------------------------------------------------------
 iter   tied    obj    reg
    0   8536     64   4158
  100   8536     64   6758
  200   8536     64   9358
  300   8536     64  11958
  400   8536     64  14558
  500   8536     64  17158
  600   8536     64  19758
  700   8536     64  22358
  800   8536     64  24958
  900   8536     64  27558