Perl 6 Compiler Design and Implementation of the Perl 6 Compiler #15

Example

> cat oscon-1.pir
.sub main @MAIN
    .local pmc p6rule
    load_bytecode "PGE.pbc"
    p6rule = find_global "PGE", "p6rule"

    $P0 = p6rule(":w From\: (\N*) To\: (\N*)")
    $P1 = $P0("From: pmichaud@pobox.com To: larry@wall.org")

    $P1."dump"("$/")
.end

> parrot oscon-1.pir
$/: <From: pmichaud@pobox.com To: larry@wall.org @ 0> 
$/[0]: <pmichaud@pobox.com  @ 6> 
$/[1]: <larry@wall.org @ 29> 
Copyright © 2005 Patrick R. Michaud