/[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 809 by dpavlin, Tue Jan 30 18:21:17 2007 UTC revision 810 by dpavlin, Sun Apr 1 21:47:38 2007 UTC
# Line 1273  my $hash; Line 1273  my $hash;
1273    
1274  sub set {  sub set {
1275          my ($k,$v) = @_;          my ($k,$v) = @_;
1276          warn "## set ( $k => ", dump($v), " )", $/;          warn "## set ( $k => ", dump($v), " )", $/ if ( $debug );
1277          $hash->{$k} = $v;          $hash->{$k} = $v;
1278  };  };
1279    
# Line 1286  sub set { Line 1286  sub set {
1286  sub get {  sub get {
1287          my $k = shift || return;          my $k = shift || return;
1288          my $v = $hash->{$k};          my $v = $hash->{$k};
1289          warn "## get $k = ", dump( $v ), $/;          warn "## get $k = ", dump( $v ), $/ if ( $debug );
1290          return $v;          return $v;
1291  }  }
1292    
# Line 1299  sub get { Line 1299  sub get {
1299  =cut  =cut
1300    
1301  sub count {  sub count {
1302          warn "## count ",dump(@_),$/;          warn "## count ",dump(@_),$/ if ( $debug );
1303          return @_ . '';          return @_ . '';
1304  }  }
1305    

Legend:
Removed from v.809  
changed lines
  Added in v.810

  ViewVC Help
Powered by ViewVC 1.1.26