use v6.d;
use Test;
plan 2;

unless (try { EVAL("1", :lang<Perl5>) }) {
    skip-rest;
    exit;
}

my &foo := EVAL('sub {432}',:lang<Perl5>);
is foo(),432,"calling subs works";

my $foo = EVAL('sub {432}',:lang<Perl5>);
is $foo(),432,"calling subs stored in variables works";
