[Zope-Perl] Script (Perl) question

[Andy McKay]

Well:
$self->{Control_Panel}->objectIds() gives a this is not a HASH reference
error
$self->Control_Panel->objectIds() gives a __call__ error
Python::getattr($self, 'Control_Panel') gives a Undefined subroutine
&Zope::PerlMethod::__copy_5fof_5ftestPl::Python::getattr

I think there is something wrong with my installation here.
--
  Andy McKay.


----- Original Message -----
From: "Gisle Aas" <gisle@ActiveState.com>
To: "Chris McDonough" <chrism@digicool.com>
Cc: "Andy McKay" <andym@activestate.com>; <zope-perl@zope.org>
Sent: Thursday, January 25, 2001 11:24 AM
Subject: Re: [Zope-Perl] Script (Perl) question


> "Chris McDonough" <chrism@digicool.com> writes:
>
> > I think you need to reference self.Control_Panel.objectIds in perl
through
> > the following:
> >
> > foreach $name ($self->{Control_Panel}->objectIds()) {
> > ...
> > }
>
> Assuming $o is some python object:
>
> Perl       |                        Python
> -----------+------------------------------------
> $o->{Foo}  | should be the same as  o["Foo"]
> $o->Foo    | should be the same as  o.Foo
>            |                    or  o.Foo()  (if o.Foo happens to be
callable)
>
> If you want to avoid the auto-call feature of $o->Foo you need to
> write it as Python::getattr($o, "Foo").
>
> --Gisle
>
>
> > Gad, I found that I've forgotten everything I ever knew about Perl,
which
> > wasn't much to start with.  :-)
> >
> > ----- Original Message -----
> > From: "Chris McDonough" <chrism@digicool.com>
> > To: "Andy McKay" <andym@activestate.com>; <zope-perl@zope.org>
> > Sent: Wednesday, January 24, 2001 7:12 PM
> > Subject: Re: [Zope-Perl] Script (Perl) question
> >
> >
> > > Are you passing in "self" as an argument on the PerlM arguments line?
> > >
> > > ----- Original Message -----
> > > From: "Andy McKay" <andym@activestate.com>
> > > To: <zope-perl@zope.org>
> > > Sent: Wednesday, January 24, 2001 6:48 PM
> > > Subject: [Zope-Perl] Script (Perl) question
> > >
> > >
> > > > Whats $self in Zope Perl, AFAIK it is a binding to the scripts
> > container,
> > > > similar to context to Script (Python). Anyway the following works
fine
> > in
> > > > python:
> > > >
> > > > return context.Control_Panel.objectIds()
> > > >
> > > > The same in Perl would be:
> > > >
> > > > return $self->Control_Panel->objectIds();
> > > >
> > > > but I get a __call__ error. The Zope Book suggests that I have the
right
> > > > syntax. The problem seems to occur when moving into a sub-object,
for
> > > > example $self->objectIds(); works just fine. Any ideas anyone?
> > > >
> > > > Using: Zope 2.3b2, Win2k, Python 1.5.2, Perl 620, pyperl &
> > > zoperl-1.0-beta3
> > > >
> > > > Cheers.
> > > >
> > > > --
> > > >   Andy McKay.
>
> _______________________________________________
> Zope-perl maillist  -  Zope-perl@zope.org
> http://lists.zope.org/mailman/listinfo/zope-perl
>