# It's not real "perl"! It just looks like it.

# Basically, PIRATE can't handle :init... We have no ability to create Sub in
# runtime and attach it to current interp.
test_post( ":init :load", <<'CODE', <<'RESULT');
.sub "main"
    say "main"
.end

.sub "hello" :init :load
    say "hello :init"
.end
CODE
hello :init
main
RESULT

# vim: ft=perl

# It's not real "perl"! It just looks like it.

# Basically, PIRATE can't handle :init... We have no ability to create Sub in
# runtime and attach it to current interp.
test_post( ":init :load", <<'CODE', <<'RESULT');
.sub "main"
    say "main"
.end

.sub "hello" :init :load
    say "hello :init"
.end
CODE
hello :init
main
RESULT

test_post( ":method", <<'CODE', <<'RESULT');
.sub "main"
    $P0 = newclass ['Foo';'Bar']
    $P1 = new $P0
    $P1."hello"()
.end

.namespace ['Foo';'Bar']
.sub "hello" :method
    say "Hello, World"
.end
CODE
Hello, World
RESULT

# vim: ft=perl

Add (failing) test for :method handling.
Add (failing) test for :method handling.
