view release on metacpan or  search on metacpan

example/warn.pl  view on Meta::CPAN

#!perl -w
use strict;
use FindBin qw($Bin);
use lib "$Bin/../lib";

use Acme::Perl::VM;

sub f{
    print 42 + undef, "\n";
}
sub g{
    f(42);
}

run_block {
    &g;
};