Parent Directory
| 
Revision Log
| 
Patch
| revision 983 by dpavlin, Sun Nov 4 11:12:38 2007 UTC | revision 990 by dpavlin, Sun Nov 4 13:27:12 2007 UTC | |
|---|---|---|
| # | Line 2 package WebPAC::Normalize; | Line 2 package WebPAC::Normalize; |
| 2 | use Exporter 'import'; | use Exporter 'import'; |
| 3 | our @EXPORT = qw/ | our @EXPORT = qw/ |
| 4 | _set_ds _set_lookup | _set_ds _set_lookup |
| get_ds | ||
| 5 | _set_load_row | _set_load_row |
| 6 | _get_ds _clean_ds | _get_ds _clean_ds |
| 7 | _debug | _debug |
| # | Line 133 sub _set_ds { | Line 132 sub _set_ds { |
| 132 | $rec = shift or die "no record hash"; | $rec = shift or die "no record hash"; |
| 133 | } | } |
| 134 | ||
| =head2 get_ds | ||
| Access to original record from input module | ||
| my $ds = get_rec; | ||
| =cut | ||
| sub get_ds { | ||
| return $rec; | ||
| } | ||
| 135 | =head2 _set_config | =head2 _set_config |
| 136 | ||
| 137 | Set current config hash | Set current config hash |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |