Lines Matching refs:context

56     my $context = shift;
60         ok($context eq 'array', 'Array/list context');
63         ok($context eq 'scalar', 'Scalar context');
66         ok($context eq 'void', 'Void context');
73 ok($res eq 'array', 'Implicit array context');
77 ok($res eq 'scalar', 'Implicit scalar context');
82 ok(! defined($res), 'Implicit void context');
84 $thr = threads->create({'context' => 'array'}, 'foo', 'array');
86 ok($res eq 'array', 'Explicit array context');
90 ok($res eq 'scalar', 'Explicit scalar context');
94 ok(! defined($res), 'Explicit void context');
99     my $context = shift;
103         ok($context eq 'list', 'Array/list context');
106         ok($context eq 'scalar', 'Scalar context');
109         ok($context eq 'void', 'Void context');
116 ok($ctx, 'Implicit array context');
118 ok($res eq 'list', 'Implicit array context');
122 ok(defined($ctx) && !$ctx, 'Implicit scalar context');
124 ok($res eq 'scalar', 'Implicit scalar context');
129 ok(! defined($ctx), 'Implicit void context');
131 ok(! defined($res), 'Implicit void context');
133 $thr = threads->create({'context' => 'list'}, 'bar', 'list');
135 ok($ctx, 'Explicit array context');
137 ok($res eq 'list', 'Explicit array context');
141 ok(defined($ctx) && !$ctx, 'Explicit scalar context');
143 ok($res eq 'scalar', 'Explicit scalar context');
147 ok(! defined($ctx), 'Explicit void context');
149 ok(! defined($res), 'Explicit void context');