6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.6 2003/03/28 03:08:17 joko |
10 |
|
## fix regarding namespace update |
11 |
|
## |
12 |
|
## Revision 1.5 2003/02/21 08:34:58 joko |
13 |
|
## modified object hierarchy |
14 |
|
## renamed method |
15 |
|
## |
16 |
|
## Revision 1.4 2003/02/14 14:06:20 joko |
17 |
|
## + minor fix to old metadata structure |
18 |
|
## |
19 |
## Revision 1.3 2003/02/11 06:28:24 joko |
## Revision 1.3 2003/02/11 06:28:24 joko |
20 |
## + changes to metadata structure |
## + changes to metadata structure |
21 |
## |
## |
44 |
|
|
45 |
use Data::Dumper; |
use Data::Dumper; |
46 |
use libdb qw( quotesql ); |
use libdb qw( quotesql ); |
47 |
use Data::Transform::Deep qw( refexpr2perlref ); |
use Data::Mungle::Code::Ref qw( ref_slot ); |
48 |
|
|
49 |
# get logger instance |
# get logger instance |
50 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
96 |
|
|
97 |
# TypeProvider |
# TypeProvider |
98 |
# FIXME! this is still Vdeprecated!!! |
# FIXME! this is still Vdeprecated!!! |
99 |
if (my $item_type = $self->{args}->{$_ . '_type'}) { |
if (my $item_type = $self->{options}->{$_ . '_type'}) { |
100 |
my @item_type = split(':', $item_type); |
my @item_type = split(':', $item_type); |
101 |
$self->{meta}->{$_}->{TypeProvider} = { method => $item_type[0], arg => $item_type[1] }; |
$self->{meta}->{$_}->{TypeProvider} = { method => $item_type[0], arg => $item_type[1] }; |
102 |
} |
} |
282 |
# build callback map for helper function |
# build callback map for helper function |
283 |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
#my $cbmap = { $self->{meta}->{source}->{IdentProvider}->{arg} => $cb_dispatcher }; |
284 |
my $cbmap = {}; |
my $cbmap = {}; |
285 |
my $value = refexpr2perlref($self->{node}->{source}->{payload}, $self->{node}->{source}->{propcache}->{property}, $cbmap); |
my $value = ref_slot($self->{node}->{source}->{payload}, $self->{node}->{source}->{propcache}->{property}, $cbmap); |
286 |
$self->{node}->{source}->{propcache}->{value} = $value; |
$self->{node}->{source}->{propcache}->{value} = $value; |
287 |
} |
} |
288 |
|
|