/[webpac2]/trunk/lib/WebPAC/Input.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 771 by dpavlin, Fri Nov 3 20:40:33 2006 UTC revision 774 by dpavlin, Fri Nov 3 20:56:21 2006 UTC
# Line 16  WebPAC::Input - read different file form Line 16  WebPAC::Input - read different file form
16    
17  =head1 VERSION  =head1 VERSION
18    
19  Version 0.15  Version 0.16
20    
21  =cut  =cut
22    
23  our $VERSION = '0.15';  our $VERSION = '0.16';
24    
25  =head1 SYNOPSIS  =head1 SYNOPSIS
26    
# Line 535  sub stats { Line 535  sub stats {
535          return $out;          return $out;
536  }  }
537    
538  =head2 dump  =head2 dump_ascii
539    
540  Display humanly readable dump of record  Display humanly readable dump of record
541    
542  =cut  =cut
543    
544  sub dump {  sub dump_ascii {
545          my $self = shift;          my $self = shift;
546    
547          return unless $self->{ll_db};          return unless $self->{ll_db};
548    
549          if ($self->{ll_db}->can('dump_rec')) {          if ($self->{ll_db}->can('dump_rec')) {
550                  return $self->{ll_db}->dump_rec( $self->{pos} );                  return $self->{ll_db}->dump_ascii( $self->{pos} );
551          } else {          } else {
552                  return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) );                  return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) );
553          }          }
Legend:
Removed from v.771  
changed lines
  Added in v.774
  ViewVC Help
Powered by ViewVC 1.1.26