3 use warnings FATAL => 'all';
6 use Test::More 'no_plan';
9 # todo_skip "This is still totally hosed", 2;
12 local $SIG{ALRM} = sub { die "Alarm!\n"; };
15 my $ret = qx{$^X "-Ilib" -le "package Foo; use Function::Parameters; method foo() { 42 } print Foo->foo()"};
18 }, "42\n", 'one-liner';
24 local $SIG{ALRM} = sub { die "Alarm!\n"; };
27 my $ret = qx{$^X "-Ilib" -MFunction::Parameters -le "package Foo; use Function::Parameters; method foo() { 42 } print Foo->foo()"};
30 }, "42\n", 'one liner with -MFunction::Parameters';
35 local $SIG{ALRM} = sub { die "Alarm!\n"; };
36 my $simple_plx = __DIR__ . '/simple.plx';
38 local $ENV{PERLDB_OPTS} = 'NonStop';
40 my $ret = qx{$^X "-Ilib" -dw $simple_plx};