Acme-Perl-VM

 view release on metacpan or  search on metacpan

example/funcall.pl  view on Meta::CPAN

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

use Acme::Perl::VM::Run;

sub hello{
    my($s) = @_;

    print "Hello, $s world!\n";
}

hello("APVM");

example/hello-trace.pl  view on Meta::CPAN

#!perl -w
BEGIN{ $ENV{APVM_DEBUG} = 'trace' }
use strict;
use FindBin qw($Bin);
use lib "$Bin/../lib";

use Acme::Perl::VM::Run;

my $x = 'APVM';
print "Hello, $x world!\n";

example/hello.pl  view on Meta::CPAN

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

use Acme::Perl::VM::Run;

my $x = 'APVM';
print "Hello, $x world!\n";

example/methcall.pl  view on Meta::CPAN

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

use Acme::Perl::VM;

sub Foo::hello{
    my(undef, $s) = @_;

    print "Hello, $s world!\n";
}

run_block {

example/quine.pl  view on Meta::CPAN

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

use Acme::Perl::VM;

open *SELF, '<', $0;
run_block{
    while(<SELF>){
        print;
    }
};

example/trace.pl  view on Meta::CPAN

#!perl -w
BEGIN{ $ENV{APVM_DEBUG} = 'trace' }
use strict;
use FindBin qw($Bin);
use lib "$Bin/../lib";

use Acme::Perl::VM::Run;

sub Foo::hello{
    my(undef, $msg) = @_;

    print "Hello, $msg world!\n";
}

for(my $i = 1; $i <= 1; $i++){

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);
}