use strict;
use warnings;
use Benchmark;
use myTie::File::GFF;
use myTie::File;
use Tie::File;

my $f = shift @ARGV;

tie my @arr1, 'myTie::File', $f;
tie my @arr2, 'myTie::File::GFF', $f;
tie my @arr3, 'Tie::File',$f;

Benchmark::cmpthese (100, {
			  'call_same_module' => sub {my $cont=0; for (@arr1){$cont++;}},
			  'inherited' => sub {my $cont=0; for (@arr2){$cont++;}},
			   'orig_tiefile'  => sub {my $cont=0; for (@arr3){$cont++}}
			 }
		    );