t/SimpleClass.pm

   1 package SimpleClass;
   2
   3
   4 my @name   = qw(bob bill brian babette bobo bix);
   5 my @age    = qw(99  12   44    52      12   43);
   6 my @weight = qw(99  52   80   124     120  230);
   7
   8
   9 sub new {
  10     my $this = shift;
  11     bless {}, ref($this) || $this;
  12 }
  13
  14 sub load_data {
  15     my @data;
  16
  17     for (0 .. 5) {
  18         push @data, {
  19                      age    => shift @age,
  20                      name   => shift @name,
  21                      weight => shift @weight
  22                     }
  23     }
  24
  25     \@data
  26 }
  27
  28
  29 1;