Alt-Lexical-Var-ButSupportModernPerl

 view release on metacpan or  search on metacpan

t/setup_code.t  view on Meta::CPAN

use warnings;
use strict;

use Test::More tests => 12;

BEGIN { $SIG{__WARN__} = sub { die "WARNING: $_[0]" }; }

require Lexical::Var;

sub test_case($) {
	my $result = eval($_[0]);
	my $err = $@;
	if($err eq "") {
		is $result, 123;
	} else {
		like $err, qr/\Acan't set up lexical /;
	}
}

test_case q{

t/setup_code.t  view on Meta::CPAN

test_case q{
	BEGIN {
		sub {
			my $n = 123;
			sub{ "Lexical::Var"->import('&t9' => sub{$n}); };
		}->()->();
	}
	&t9;
};

sub ts10() { "Lexical::Var"->import('&t10' => sub{123}); }
test_case q{
	BEGIN { ts10(); }
	&t10;
};

test_case q{
	BEGIN {
		eval q{"x"}; die $@ if $@;
		"Lexical::Var"->import('&t11' => sub{123});
	}

t/setup_scalar.t  view on Meta::CPAN

use warnings;
use strict;

use Test::More tests => 12;

BEGIN { $SIG{__WARN__} = sub { die "WARNING: $_[0]" }; }

require Lexical::Var;

sub test_case($) {
	my $result = eval($_[0]);
	my $err = $@;
	if($err eq "") {
		is $result, 123;
	} else {
		like $err, qr/\Acan't set up lexical /;
	}
}

test_case q{

t/setup_scalar.t  view on Meta::CPAN

test_case q{
	BEGIN {
		sub {
			my $n = 123;
			sub{ "Lexical::Var"->import('$t9' => \$n); };
		}->()->();
	}
	$t9;
};

sub ts10() { "Lexical::Var"->import('$t10' => \123); }
test_case q{
	BEGIN { ts10(); }
	$t10;
};

test_case q{
	BEGIN {
		eval q{"x"}; die $@ if $@;
		"Lexical::Var"->import('$t11' => \123);
	}