6 use Variable::Temp 'temp';
14 plan skip_all => 'perl 5.16 required to have \$ proto accept sub entries';
19 package Variable::Temp::TestPkg;
22 my ($class, $val) = @_;
24 bless { value => $val }, $class;
32 my ($self, $expected, $desc) = @_;
33 ::is($self->{value}, $expected, $desc);
37 my $x = Variable::Temp::TestPkg->new(1);