t/data/table2.pm

   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