use strict; use warnings; use lib 't'; use Test::More 'no_plan'; { my $class = 'Req2'; eval "require $class"; ok(! $@, ($@)?$@:'eval ok'); my $n = $class->new(field => 'ciao'); my $m = Req2->new(field => 'a tutti'); is($n->get_field(), 'ciao', 'field value for $n'); is($m->get_field(), 'a tutti', 'field value for $m'); } { my $class = 'Req3'; eval "require $class"; ok(! $@, ($@)?$@:'eval ok'); my $n = $class->new(field => 'ciao'); my $m = Req3->new(field => 'a tutti'); is($n->get_field(), 'ciao', 'field value for $n'); is($m->get_field(), 'a tutti', 'field value for $m'); } exit(0); # EOF