Lines Matching defs:num
73 $self->{num} = [1, 0, -3, -3.14159, 456, 4.5];79 sub num { $_[0]->{num} }116 $y->{num}->[3] += 0;117 $r->{num}->[3] += 0;124 my $num = $r->num;126 for (my $i = 0; $i < @$num; $i++) {127 do { $ok = 0; last } unless $num->[$i] == $y->num->[$i];