Select Code to Download

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 E
+NOENT (No such file or directory)
...
open("/usr/lib/perl/5.8/Test.pm", O_RDONLY|O_LARGEFILE) = -1 ENOENT (N
+o such file or directory)
stat64("/usr/share/perl/5.8/Test.pmc", 0x7fe20a50) = -1 ENOENT (No suc
+h 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 E
+NOENT (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=2
+8863, ...}) = 0
open("/usr/share/perl/5.8/Test.pmc", O_RDONLY|O_LARGEFILE) = 4

package Foo;
use Module::Compile -base;
...
}

1;

# Unfiltered code here
quux(bar);
...

# Unfiltered code here, again
quux(bar);

# User.pm
use v6-pugs;
...
...some p6 code here...
no v6;
...back to p5 land...