Searched refs:eval_ok (Results 1 - 1 of 1) sorted by relevance

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dattrs.t15 sub eval_ok ($) { subroutine
20 eval_ok 'sub t1 ($) : locked { $_[0]++ }';
21 eval_ok 'sub t2 : locked { $_[0]++ }';
22 eval_ok 'sub t3 ($) : locked ;';
23 eval_ok 'sub t4 : locked ;';
24 our $anon1; eval_ok '$anon1 = sub ($) : locked:method { $_[0]++ }';
25 our $anon2; eval_ok '$anon2 = sub : locked : method { $_[0]++ }';
26 our $anon3; eval_ok '$anon3 = sub : method { $_[0]->[1] }';
40 eval_ok 'my main $x : = 0;';
41 eval_ok 'm
[all...]

Completed in 50 milliseconds