1 2 3 4 5 6 7 8 9 10 11 12
use warnings; use strict; use Test::More tests => 1; use XS::APItest qw(stufftest); my $a = "stufftest+;();"; eval $a; is $a, "stufftest+;();"; 1;