Lines Matching defs:fred3
289 sub fred3 {
297 return $l * fred3($l-1);
299 my $r = fred3(5);
301 $r = eval'fred3(5)';
304 eval '$r = fred3(5)';
307 { my $yyy = 4; my $zzz = 5; my $l = 6; $r = eval 'fred3(5)' };
310 my $r = fred3(5);
312 $r = eval'fred3(5)';
315 eval'$r = fred3(5)';
318 { my $yyy = 4; my $zzz = 5; my $l = 6; $r = eval 'fred3(5)' };