/[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 597 by dpavlin, Thu Jul 13 11:54:33 2006 UTC revision 606 by dpavlin, Tue Aug 1 13:59:47 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.08  Version 0.09
20    
21  =cut  =cut
22    
23  our $VERSION = '0.08';  our $VERSION = '0.09';
24    
25  =head1 SYNOPSIS  =head1 SYNOPSIS
26    
# Line 252  sub open { Line 252  sub open {
252                    
253                                  $l =~ s/($recode_regex)/$recode_map->{$1}/g if ($recode_regex && $recode_map);                                  $l =~ s/($recode_regex)/$recode_map->{$1}/g if ($recode_regex && $recode_map);
254    
255                                  return $l unless ($rec_regex);                                  ## FIXME remove this warning when we are sure that none of API is calling
256                                    ## this wrongly
257                                    #warn "filter called without field number" unless ($f_nr);
258    
259                                    return $l unless ($rec_regex && $f_nr);
260    
261                                  # apply regexps                                  # apply regexps
262                                  if ($rec_regex && defined($rec_regex->{$f_nr})) {                                  if ($rec_regex && defined($rec_regex->{$f_nr})) {
# Line 522  sub stats { Line 526  sub stats {
526          return $out;          return $out;
527  }  }
528    
529  =head1 modify_record_regexps  =head2 modify_record_regexps
530    
531  Generate hash with regexpes to be applied using L<filter>.  Generate hash with regexpes to be applied using L<filter>.
532    
# Line 604  Dobrica Pavlinusic, C<< <dpavlin@rot13.o Line 608  Dobrica Pavlinusic, C<< <dpavlin@rot13.o
608    
609  =head1 COPYRIGHT & LICENSE  =head1 COPYRIGHT & LICENSE
610    
611  Copyright 2005 Dobrica Pavlinusic, All Rights Reserved.  Copyright 2005-2006 Dobrica Pavlinusic, All Rights Reserved.
612    
613  This program is free software; you can redistribute it and/or modify it  This program is free software; you can redistribute it and/or modify it
614  under the same terms as Perl itself.  under the same terms as Perl itself.
Legend:
Removed from v.597  
changed lines
  Added in v.606
  ViewVC Help
Powered by ViewVC 1.1.26