added to_ascii to be more like Biblio::ISIS API [0.05]

[MARC-Fast] / Fast.pm

diff --git a/Fast.pm b/Fast.pm
index e9a7142..4ac67e9 100644 (file)
--- a/Fast.pm
+++ b/Fast.pm
@@ -1,5 +1,5 @@
-

 package MARC::Fast;
 package MARC::Fast;

+

 use strict;
 use Carp;
 use Data::Dumper;
 use strict;
 use Carp;
 use Data::Dumper;


@@ -7,7 +7,7 @@ use Data::Dumper;
 BEGIN {
        use Exporter ();
        use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 BEGIN {
        use Exporter ();
        use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

-       $VERSION     = 0.04;
+       $VERSION     = 0.05;

        @ISA         = qw (Exporter);
        #Give a hoot don't pollute, do not export more than needed by default
        @EXPORT      = qw ();
        @ISA         = qw (Exporter);
        #Give a hoot don't pollute, do not export more than needed by default
        @EXPORT      = qw ();


@@ -313,17 +313,32 @@ sub to_hash {
        return $rec;
 }
 
        return $rec;
 }
 

+=head2 to_ascii

 
 

-1;
-__END__
+  print $marc->to_ascii( 42 );
+
+=cut

 
 

-=head1 BUGS
+sub to_ascii {
+       my $self = shift;

 
 

+       my $mfn = shift || confess "need mfn";
+       my $row = $self->fetch($mfn) || return;

 
 

+       my $out;

 
 

-=head1 SUPPORT
+       foreach my $f (sort keys %{$row}) {
+               my $dump = join('', @{ $row->{$f} });
+               $dump =~ s/\x1e$//;
+               $dump =~ s/\x1f/\$/g;
+               $out .= "$f\t$dump\n";
+       }

 
 

+       return $out;
+}

 
 

+1;
+__END__

 
 =head1 AUTHOR
 
 
 =head1 AUTHOR
 


@@ -343,6 +358,6 @@ LICENSE file included with this module.
 
 =head1 SEE ALSO
 
 
 =head1 SEE ALSO
 

-perl(1).
+L<Biblio::Isis>, perl(1).

 
 =cut
 
 =cut