X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2Fdata%2Ftable2.pm;fp=t%2Fdata%2Ftable2.pm;h=0000000000000000000000000000000000000000;hb=c337c4041b557cec7e74654ccd503016ee3a4348;hp=7b5eaf50f759a83cbeebb23e12070987835c67ab;hpb=aa0161264c67d7802e79492b05aff88533d79d20;p=html-element-library.git diff --git a/t/data/table2.pm b/t/data/table2.pm deleted file mode 100644 index 7b5eaf5..0000000 --- a/t/data/table2.pm +++ /dev/null @@ -1,37 +0,0 @@ -package data::table2; - -use strict; -use warnings; - -use Cwd; -use Data::Dumper; - -#warn __PACKAGE__ . ' cwd - ' . getcwd() ; - -sub new { - my $this = shift; - bless {}, ref($this) || $this; -} - -sub load_data { - - my @file = qw(4dig 3dig); - - my %data; - - for my $file (@file) { - my $f = "t/data/$file.dat"; - my @data; - open F, $f or die "couldnt open $f: $!"; - while () { - push @data, [ split ',', $_ ] ; - } - $data{$file} = \@data; - } - #warn Dumper \%data; - \%data; - -} - -1; -