[html-element-library.git] / t / SimpleClass.pm

package SimpleClass;


my @name   = qw(bob bill brian babette bobo bix);
my @age    = qw(99  12   44    52      12   43);
my @weight = qw(99  52   80   124     120  230);


sub new {
    my $this = shift;
    bless {}, ref($this) || $this;
}

sub load_data {
    my @data;

    for (0 .. 5) {
	push @data, { 
		     age    => shift @age,
		     name   => shift @name,
		     weight => shift @weight
		    }
    }

    \@data
}


1;
Commit	Line	Data
67e78ff2	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;