d:\Incoming>copy con x.pir
.HLL 'foo'

.sub 'main' :main
    $P0 = new 'Class'
    $I0 = isa $P0, 'Sub'

    $P1 = get_root_global ['foo'], 'Sub'
    say $P1
.end
^Z
        1 Datei(en) kopiert.

d:\Incoming>parrot x.pir
Null PMC in say
current instr.: 'main' pc 11 (x.pir:8)

d:\Incoming>parrot --version
This is Parrot version 1.1.0 built for i386-MSWin32.
Copyright (C) 2001-2009, Parrot Foundation.

This code is distributed under the terms of the Artistic License 2.0.
For more details, see the full text of the license in the LICENSE file
included in the Parrot source tree.


d:\Incoming>