t/Context.pm


1
2
3
4
5
6
7
8
9
10
11
12

package t::Context;

{ use 5.006; }
use warnings;
use strict;

our $VERSION = 1;

die "t::Context sees array context at file scope" if wantarray;
die "t::Context sees void context at file scope" unless defined wantarray;

"t::Context return";