117 |
|
|
118 |
$log->warn("no prefix defined. please check that!") unless ($self->{'prefix'}); |
$log->warn("no prefix defined. please check that!") unless ($self->{'prefix'}); |
119 |
|
|
120 |
|
$log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l); |
121 |
|
|
122 |
$self ? return $self : return undef; |
$self ? return $self : return undef; |
123 |
} |
} |
124 |
|
|
215 |
|
|
216 |
foreach my $type (@types) { |
foreach my $type (@types) { |
217 |
# append to previous line? |
# append to previous line? |
218 |
$log->debug("type: $type ",sub { join(" ",@v) }, $row->{'append'} || 'no append'); |
$log->debug("type: $type ",sub { join(" ",@v) }, " ", $row->{'append'} || 'no append'); |
219 |
if ($tag->{'append'}) { |
if ($tag->{'append'}) { |
220 |
|
|
221 |
# I will delimit appended part with |
# I will delimit appended part with |
463 |
# do we have lookups? |
# do we have lookups? |
464 |
if ($self->{'lookup'}) { |
if ($self->{'lookup'}) { |
465 |
if ($self->{'lookup'}->can('lookup')) { |
if ($self->{'lookup'}->can('lookup')) { |
466 |
return $self->{'lookup'}->lookup($format); |
my @lookup = $self->{lookup}->lookup($format); |
467 |
|
$log->debug('lookup $format', join(", ", @lookup)); |
468 |
|
return @lookup; |
469 |
} else { |
} else { |
470 |
$log->warn("Have lookup object but can't invoke lookup method"); |
$log->warn("Have lookup object but can't invoke lookup method"); |
471 |
} |
} |