root/trunk/POE-Session-Magic/msesstest.pl

#!/usr/bin/perl -l

use warnings FATAL => "all";
use strict;

use POE qw( Session::Magic ); 
use MSTest;

my %Scope;

sub _stop : Object {
    print $Scope{Test};
    print "Exiting...";
}

sub ptest : Inline {
    print Heap->{Test};
    print shift;

#    MSTest->test("Testing cross-package post");
#    post(MSTest => test => "Testing cross-package post");

    require MSDynload;
}

sub foo : Inline {
    print shift;
    Heap->{Test} = "Testing Heap Passing";
    ptest "Testing Package States";

    my $STest;
    my $fokey;

    unless (defined $Scope{Spawned}) {
        print "Testing Session duplication";
        $fokey = main->spawn;
        print "The reference of fokey is ", ref $fokey;

        ptest "Is this dereferencing right?";
        main->ptest("\$fokey->ptest(\"This is a test\");");

        $fokey->ptest("This is a test");
        $fokey->ptest("These object aliases aren't actually objects..");

        unless ($fokey->can("ptest")) {
            print "\$fokey = $fokey";
            print " .. But \$fokey cant ->ptest";
        }

        MSTest->spawn("JOKE");

        $STest = JOKE->spawn;
        $STest->test("This is a test of a object alias");
        JOKE->test("This tests a spawned package alias as a package method");
        JOKE->destroy;

        $Scope{Spawned} = 1;
    }

}

sub _start : Inline {
    print "Starting Up";
    foo "Running";
    
    $Scope{Test} = "Scope test";
}

# This doesn't need an attribute...
sub new { 
    print "New called";
    bless {}; 
} # To appease object states creator