use lib 't/lib';
use EvalTest;
use Test::More tests => 8;
{
my $o = EvalTest->new;
$o->in(1);
is($o->out, 1);
}
for (2 .. 8) {
my $o = EvalTest->new;
my $m = "out$_";
$o->in($_);
is(eval "\$o->$m", $_);
}
use lib 't/lib';
use EvalTest;
use Test::More tests => 8;
{
my $o = EvalTest->new;
$o->in(1);
is($o->out, 1);
}
for (2 .. 8) {
my $o = EvalTest->new;
my $m = "out$_";
$o->in($_);
is(eval "\$o->$m", $_);
}