perl -MO=Bytecode,-H -MTest -e1 > Test.pmc
####
stat64("/usr/local/lib/perl/5.8.7/Test.pmc", 0x7fe20a50) = -1 ENOENT (No such file or directory)
open("/usr/local/lib/perl/5.8.7/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/local/share/perl/5.8.7/Test.pmc", 0x7fe20a50) = -1 ENOENT (No such file or directory)
open("/usr/local/share/perl/5.8.7/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/lib/perl5/Test.pmc", 0x7fe20a50) = -1 ENOENT (No such file or directory)
open("/usr/lib/perl5/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/share/perl5/Test.pmc", 0x7fe20a50) = -1 ENOENT (No such file or directory)
open("/usr/share/perl5/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/lib/perl/5.8/Test.pmc", 0x7fe20a50) = -1 ENOENT (No such file or directory)
open("/usr/lib/perl/5.8/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/share/perl/5.8/Test.pmc", 0x7fe20a50) = -1 ENOENT (No such file or directory)
open("/usr/share/perl/5.8/Test.pm", O_RDONLY|O_LARGEFILE) = 4
##
##
stat64("/usr/local/lib/perl/5.8.7/Test.pmc", 0x7f95aa50) = -1 ENOENT (No such file or directory)
open("/usr/local/lib/perl/5.8.7/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/local/share/perl/5.8.7/Test.pmc", 0x7f95aa50) = -1 ENOENT (No such file or directory)
open("/usr/local/share/perl/5.8.7/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/lib/perl5/Test.pmc", 0x7f95aa50) = -1 ENOENT (No such file or directory)
open("/usr/lib/perl5/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/share/perl5/Test.pmc", 0x7f95aa50) = -1 ENOENT (No such file or directory)
open("/usr/share/perl5/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/lib/perl/5.8/Test.pmc", 0x7f95aa50) = -1 ENOENT (No such file or directory)
open("/usr/lib/perl/5.8/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (No such file or directory)
stat64("/usr/share/perl/5.8/Test.pmc", {st_mode=S_IFREG|0644, st_size=720, ...}) = 0
stat64("/usr/share/perl/5.8/Test.pm", {st_mode=S_IFREG|0644, st_size=28863, ...}) = 0
open("/usr/share/perl/5.8/Test.pmc", O_RDONLY|O_LARGEFILE) = 4
##
##
package Foo;
use Module::Compile -base;
sub pmc_compile {
my ($class, $source) = @_;
# Convert $source into (most like Perl 5) $compiled_output
return $compiled_output;
}
1;
##
##
# Unfiltered code here
quux(bar);
use Foo;
# This code is filtered!
# Ehh... I mean compiled!
no Foo;
# Unfiltered code here, again
quux(bar);
##
##
# User.pm
use v6-pugs;
module User;
...some p6 code here...
no v6;
...back to p5 land...