101 |
my $n = $self->{module} . '::' . $subclass; |
my $n = $self->{module} . '::' . $subclass; |
102 |
if (! defined &{ $n }) { |
if (! defined &{ $n }) { |
103 |
my $missing = "missing $subclass in $self->{module}"; |
my $missing = "missing $subclass in $self->{module}"; |
104 |
$log->logwarn($missing); |
$self->{$subclass} = sub { $log->logwarn($missing) }; |
|
$self->{$subclass} = sub { warn "$missing\n" }; |
|
105 |
} else { |
} else { |
106 |
$self->{$subclass} = \&{ $n }; |
$self->{$subclass} = \&{ $n }; |
107 |
} |
} |
176 |
my $code_page = $arg->{'code_page'} || '852'; |
my $code_page = $arg->{'code_page'} || '852'; |
177 |
|
|
178 |
# store data in object |
# store data in object |
179 |
$self->{'code_page'} = $code_page; |
$self->{'input_code_page'} = $code_page; |
180 |
foreach my $v (qw/path offset limit/) { |
foreach my $v (qw/path offset limit/) { |
181 |
$self->{$v} = $arg->{$v} if ($arg->{$v}); |
$self->{$v} = $arg->{$v} if ($arg->{$v}); |
182 |
} |
} |
209 |
} |
} |
210 |
|
|
211 |
if ($self->{limit}) { |
if ($self->{limit}) { |
212 |
$log->info("limiting to ",$self->{limit}," records"); |
$log->debug("limiting to ",$self->{limit}," records"); |
213 |
$limit = $offset + $self->{limit} - 1; |
$limit = $offset + $self->{limit} - 1; |
214 |
$limit = $size if ($limit > $size); |
$limit = $size if ($limit > $size); |
215 |
} |
} |