Hi Gerald, Thanks for your response. It definitely does.
> -----Original Message----- > From: Gerald Richter [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, July 30, 2002 2:53 AM > To: Justin Harrison; [EMAIL PROTECTED] > Subject: Re: Execute > > > > > > I'm having problems trying to get an embperl::req object in my > > imported perl code (As objects).. > > > > [- Execute ({'object' > > =>'/home/user/dir/lib/web/whatever/whatever.pm',syntax => > 'Perl'}) -] > > > > > http://perl.apache.org/embperl/pod/intro/IntroEmbperlObject.-page-5-.h > > tm > > says: > > > > "This object is passed in on the stack, so you can retrieve > it using > > the Perl "shift" statement." > > > > The first argument to my sub routines in whatever.pm, when > imported as > > objects, however, does not seem to be the same request object (Or a > > request object at all? Looking at it...) I used in the > caller for the > > execution of the perl file. > > > > It receives Embperl::__7=HASH(0xa8b0304) as the first argument (An > > object reference?).. > > > > Yes, this is correct. That's the object you have created not > the Embperl request object. > > > I tried to use Data Dump on it, but it segfaulted Apache everytime. > > > > This may happen if Data::DUmper tries to display the "magic" > Embperl uses to tied it's data to this request record. I > never tried this... > > To get the Embperl request object, you need to get the first > parameter passed to the page (not to the sub): > > [- > $r = shift ; > -] > > > I tried importing it to access sub routines "normally", but > it didn't > > find them in the current name space. > > > > This should work when you use the import => 1 parameter. When > using the object parameter you should do something like the > following to call them: > > [- > $obj = Execute ({'object' > =>'/home/user/dir/lib/web/whatever/whatever.pm',syntax => 'Perl'}) > > $obj -> mysub ; > > -] > > in mysub you get $obj passed as first parameter > > Hope this makes things a little bit more clear > > Gerald > > > > > -----Original Message----- > > > From: Justin Harrison [mailto:[EMAIL PROTECTED]] > > > Sent: Thursday, July 25, 2002 9:12 PM > > > To: [EMAIL PROTECTED] > > > Subject: RE: Execute > > > > > > > > > Thank you Gerald. I love you. > > > > > > > -----Original Message----- > > > > From: Gerald Richter [mailto:[EMAIL PROTECTED]] > > > > Sent: Thursday, July 25, 2002 7:45 PM > > > > To: Justin Harrison; [EMAIL PROTECTED] > > > > Subject: Re: Execute > > > > > > > > > > > > > > > > > > > > > It seems to work in some fashion with Embperl Meta Subs.. > > > > > > > > > > Is it by design that it seems not to function with > perl subs? Am > > > > > I doing something wrong? :-( Is there anyway to make it > > > function with > > > > > perl subs? > > > > > > > > > > > > > It also works with perl subs, but you either need to > tell Execute > > > > that you are loading pure Perl code or wrap your sub's > inside of a > > > > [- -] block: > > > > > > > > Either: > > > > > > > > [- $r->{content} = Execute ({'object' => > > > > '/home/zo/zo/lib/zoweb/content/content.pm', > > > > syntax => 'Perl' > > > > }) -] > > > > > > > > or > > > > > > > > > > In content.pm: > > > > > > > > > > > > #package zoweb::content::content; > > > > > > #use strict; > > > > > > > > # Never put a package statement here, Embperl will setup the > > > > package for you > > > > > > > > [- > > > > sub title { > > > > } > > > > > > > > -] > > > > > > > > Gerald > > > > > > > > > > > > > > > > > > > > > > > > -------------------------------------------------------------------- > > > - > > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > > > > > > -------------------------------------------------------------------- > > > - > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > > > > --------------------------------------------------------------------- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > > > > ------------------------------------------------------------- > Gerald Richter ecos electronic communication services gmbh > Internetconnect * Webserver/-design/-datenbanken * Consulting > > Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz > E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131 > WWW: http://www.ecos.de Fax: +49 6133 925152 > ------------------------------------------------------------- > > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
