375 |
This function B<does not> perform parsing of format to inteligenty skip |
This function B<does not> perform parsing of format to inteligenty skip |
376 |
delimiters before fields which aren't used. |
delimiters before fields which aren't used. |
377 |
|
|
378 |
|
This method will automatically decode UTF-8 string to local code page |
379 |
|
if needed. |
380 |
|
|
381 |
=cut |
=cut |
382 |
|
|
383 |
sub fill_in { |
sub fill_in { |
393 |
# FIXME remove for speedup? |
# FIXME remove for speedup? |
394 |
$log->logconfess("need HASH as first argument!") if ($rec !~ /HASH/o); |
$log->logconfess("need HASH as first argument!") if ($rec !~ /HASH/o); |
395 |
|
|
396 |
|
if (utf8::is_utf8($format)) { |
397 |
|
$format = $self->_x($format); |
398 |
|
} |
399 |
|
|
400 |
my $found = 0; |
my $found = 0; |
401 |
|
|
402 |
my $eval_code; |
my $eval_code; |