Umm.. Do you mean: ------------------------------------------------------------ package Foo::Bar;
sub new { my $class = shift; return bless { jo => 42 }, $class; } sub prnJoe { my $self = shift; print $self->{jo}, "\n"; } package main; $f = Foo::Bar->new(); $f->prnJoe(); ------------------------------------------------------------ Regards, -- Gregor On Sat, 2003-11-22 at 04:36, Sterling Hughes wrote: > Dan Sugalski wrote: > > These could use some documenting (and yes, I know the answer to many) for > > future use for folks generating PIR. (Hint, hint -- documentation is a > > good thing) > > > > *) How do I declare an externally visible subroutine? > > > > *) How do I store a global variable > > > > *) How do I load a global variable > > > > *) How do I call an external function > > > > *) How do I get the sub pmc for a sub declared later (or earlier) in the > > file? > > > > *) How do I (or even can I) have a file-scoped variable? (like .local, > > only for all code in the file) > > > > > *) How do I do the following in PIR: > > package Foo::Bar; > > my $joe = 42; > > sub new { > bless {}; > } > > sub prnJoe { > my $self = shift; > print $self->jo; > } > > package main; > > $f = Foo::Bar->new(); > $f->prnJoe(); > > > Would also be *really* great (I'm trying to implement the IMC codegen in > PHP for classes and objects right now :) > > -Sterling -- Gregor Purdy [EMAIL PROTECTED] Focus Research, Inc. http://www.focusresearch.com/