package Wektor; sub mkwek { my ($cls, $ary) = (@_); my $wektor = ''; my $iter = 0; for (@$ary) { vec ($wektor, $iter++, 8) = $_; } return bless \$wektor; } sub windex { my ($wektor, $windex) = (@_); return vec ($$wektor, $windex, 8); } package Widgin; sub mkwig { my ($cls, $ary) = (@_); my $widgin = $ary; return bless $ary; } sub windex { my ($widgin, $windex) = (@_); return $widgin->[$windex] || 0; }