/[webpac2]/trunk/lib/WebPAC/Normalize.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/Normalize.pm

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

revision 982 by dpavlin, Sat Nov 3 13:35:03 2007 UTC revision 990 by dpavlin, Sun Nov 4 13:27:12 2007 UTC
# Line 1  Line 1 
1  package WebPAC::Normalize;  package WebPAC::Normalize;
2  use Exporter 'import';  use Exporter 'import';
3  our @EXPORT = qw/  our @EXPORT = qw/
4          _set_rec _set_lookup          _set_ds _set_lookup
5          _set_load_row          _set_load_row
6          _get_ds _clean_ds          _get_ds _clean_ds
7          _debug          _debug
# Line 47  WebPAC::Normalize - describe normalisato Line 47  WebPAC::Normalize - describe normalisato
47    
48  =cut  =cut
49    
50  our $VERSION = '0.31';  our $VERSION = '0.32';
51    
52  =head1 SYNOPSIS  =head1 SYNOPSIS
53    
# Line 107  sub data_structure { Line 107  sub data_structure {
107    
108          no strict 'subs';          no strict 'subs';
109          _set_lookup( $arg->{lookup} ) if defined($arg->{lookup});          _set_lookup( $arg->{lookup} ) if defined($arg->{lookup});
110          _set_rec( $arg->{row} );          _set_ds( $arg->{row} );
111          _set_config( $arg->{config} ) if defined($arg->{config});          _set_config( $arg->{config} ) if defined($arg->{config});
112          _clean_ds( %{ $arg } );          _clean_ds( %{ $arg } );
113          $load_row_coderef = $arg->{load_row_coderef};          $load_row_coderef = $arg->{load_row_coderef};
# Line 118  sub data_structure { Line 118  sub data_structure {
118          return _get_ds();          return _get_ds();
119  }  }
120    
121  =head2 _set_rec  =head2 _set_ds
122    
123  Set current record hash  Set current record hash
124    
125    _set_rec( $rec );    _set_ds( $rec );
126    
127  =cut  =cut
128    
129  my $rec;  my $rec;
130    
131  sub _set_rec {  sub _set_ds {
132          $rec = shift or die "no record hash";          $rec = shift or die "no record hash";
133  }  }
134    
Legend:
Removed from v.982  
changed lines
  Added in v.990
  ViewVC Help
Powered by ViewVC 1.1.26