[html-element-library.git] / t / data / table2.pm

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 (<F>) {
      push @data, [ split ',', $_ ] ;
    }
    $data{$file} = \@data;
  }
  #warn Dumper \%data;
  \%data;

}

1;
Commit	Line	Data
67e78ff2	1	package data::table2;
	2
	3	use strict;
	4	use warnings;
	5
	6	use Cwd;
	7	use Data::Dumper;
	8
	9	#warn __PACKAGE__ . ' cwd - ' . getcwd() ;
	10
	11	sub new {
	12	my $this = shift;
	13	bless {}, ref($this) \|\| $this;
	14	}
	15
	16	sub load_data {
	17
	18	my @file = qw(4dig 3dig);
	19
	20	my %data;
	21
	22	for my $file (@file) {
	23	my $f = "t/data/$file.dat";
	24	my @data;
	25	open F, $f or die "couldnt open $f: $!";
	26	while (<F>) {
	27	push @data, [ split ',', $_ ] ;
	28	}
	29	$data{$file} = \@data;
	30	}
	31	#warn Dumper \%data;
	32	\%data;
	33
	34	}
	35
	36	1;
	37