| Subject: | Seeming problem with using PreCallback attributed routines |
When I run the script using the procedural interface for specifying pre- and post- callbacks, I get the following.
mdorman@amanda:~$ ./proc.pl
start:
--- #YAML:1.0
turnip: truck
process:
--- #YAML:1.0
id: josh
turnip: truck
session_destroy:
--- #YAML:1.0
id: josh
turnip: truck
This is pretty much as expected. When I run the script using the OO callbacks, I get the following:
mdorman@amanda:~$ ./oocb.pl
Can't use string ("0") as an ARRAY ref while "strict refs" in use at /usr/share/perl5/Params/CallbackRequest.pm line 273.
This is at the point where pre- and post- callbacks are being dropped onto the stack.
I am using the standard Debian installation of Perl, which reports:
Summary of my perl5 (revision 5.0 version 8 subversion 2) configuration:
Platform:
osname=linux, osvers=2.4.22-xfs+ti1211, archname=i386-linux-thread-multi
uname='linux kosh 2.4.22-xfs+ti1211 #1 sat oct 25 10:11:37 est 2003 i686 gnulinux '
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i386-linux -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8.2 -Darchlib=/usr/lib/perl/5.8.2 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.2 -Dsitearch=/usr/local/lib/perl/5.8.2 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm -Duseshrplib -Dlibperl=libperl.so.5.8.2 -Dd_dosuid -des'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O3',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -I/usr/local/include'
ccversion='', gccversion='3.3.2 (Debian)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
perllibs=-ldl -lm -lpthread -lc -lcrypt
libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, libperl=libperl.so.5.8.2
gnulibc_version='2.3.2'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
Built under linux
Compiled at Nov 15 2003 17:52:08
@INC:
/etc/perl
/usr/local/lib/perl/5.8.2
/usr/local/share/perl/5.8.2
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.8.2
/usr/share/perl/5.8.2
/usr/local/lib/site_perl
.
#!/usr/bin/perl -w
use strict;
use base qw{Params::Callback};
__PACKAGE__->register_subclass (class_key => "test");
use Params::CallbackRequest;
use YAML qw{Dump};
my $cb = Params::CallbackRequest->new (cb_classes => 'ALL', post_callbacks => [\&finish], pre_callbacks => [\&start]);
$cb->request ({"test|process_cb" => 1});
sub start {
my $self = shift;
my $session = {turnip => "truck"};
print STDERR "start:\n", Dump ($session);
$self->notes (session => $session);
}
sub process : Callback {
my $self = shift;
my $session = $self->notes ('session');
$session->{id} = "josh";
print STDERR "process:\n", Dump ($session);
}
sub finish {
my $self = shift;
my $session = $self->notes ('session');
print STDERR "session_destroy:\n", Dump ($session);
}
#!/usr/bin/perl -w
use strict;
use base qw{Params::Callback};
__PACKAGE__->register_subclass (class_key => "test");
use Params::CallbackRequest;
use YAML qw{Dump};
my $cb = Params::CallbackRequest->new (cb_classes => 'ALL');
$cb->request ({"test|process_cb" => 1});
sub start : PreCallback {
my $self = shift;
my $session = {turnip => "truck"};
print STDERR "start:\n", Dump ($session);
$self->notes (session => $session);
}
sub process : Callback {
my $self = shift;
my $session = $self->notes ('session');
$session->{id} = "josh";
print STDERR "process:\n", Dump ($session);
}
sub finish : PostCallback {
my $self = shift;
my $session = $self->notes ('session');
print STDERR "session_destroy:\n", Dump ($session);
}