117 |
|
|
118 |
=item debug |
=item debug |
119 |
|
|
120 |
Dump a B<lot> of debugging output. |
Dump a B<lot> of debugging output even at level 1. For even more increase level. |
121 |
|
|
122 |
=back |
=back |
123 |
|
|
385 |
return $self->{'record'}; |
return $self->{'record'}; |
386 |
} |
} |
387 |
|
|
388 |
|
=head2 mfn |
389 |
|
|
390 |
|
Returns current MFN position |
391 |
|
|
392 |
|
my $mfn = $isis->mfn; |
393 |
|
|
394 |
|
=cut |
395 |
|
|
396 |
|
# This function should be simple return $self->{current_mfn}, |
397 |
|
# but if new is called with _hack_mfn it becomes setter. |
398 |
|
# It's useful in tests when setting $isis->{record} directly |
399 |
|
|
400 |
|
sub mfn { |
401 |
|
my $self = shift; |
402 |
|
return $self->{current_mfn}; |
403 |
|
}; |
404 |
|
|
405 |
|
|
406 |
=head2 to_ascii |
=head2 to_ascii |
407 |
|
|
408 |
Returns ASCII output of record with specified MFN |
Returns ASCII output of record with specified MFN |
522 |
foreach my $t (split(/\^/,$l)) { |
foreach my $t (split(/\^/,$l)) { |
523 |
next if (! $t); |
next if (! $t); |
524 |
my ($sf,$v) = (substr($t,0,1), substr($t,1)); |
my ($sf,$v) = (substr($t,0,1), substr($t,1)); |
525 |
warn "### $k^$sf:$v",$/ if ($self->{debug} > 1); |
# FIXME make this option ! |
526 |
|
next unless ($v); |
527 |
|
# warn "### $k^$sf:$v",$/ if ($self->{debug} > 1); |
528 |
|
|
529 |
|
# FIXME array return optional, by default unroll to ' ; ' |
530 |
if (ref( $val->{$sf} ) eq 'ARRAY') { |
if (ref( $val->{$sf} ) eq 'ARRAY') { |
531 |
|
|
532 |
push @{ $val->{$sf} }, $v; |
push @{ $val->{$sf} }, $v; |
533 |
} elsif (defined( $val->{$sf} )) { |
} elsif (defined( $val->{$sf} )) { |
534 |
# convert scalar field to array |
# convert scalar field to array |
654 |
tested this against ouput of one C<isis.dll>-based application, but I don't |
tested this against ouput of one C<isis.dll>-based application, but I don't |
655 |
know any details about it's version. |
know any details about it's version. |
656 |
|
|
657 |
|
=head1 VERSIONS |
658 |
|
|
659 |
|
You can find version dependencies documented here |
660 |
|
|
661 |
|
=over 8 |
662 |
|
|
663 |
|
=item 0.20 |
664 |
|
|
665 |
|
Added C<< $isis->mfn >> and support for repeatable subfields |
666 |
|
|
667 |
|
=back |
668 |
|
|
669 |
=head1 AUTHOR |
=head1 AUTHOR |
670 |
|
|
671 |
Dobrica Pavlinusic |
Dobrica Pavlinusic |