/[Sack]/trunk/lib/Sack/View.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/Sack/View.pm

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

revision 193 by dpavlin, Sun Nov 8 14:47:48 2009 UTC revision 195 by dpavlin, Sun Nov 8 16:17:21 2009 UTC
# Line 17  sub out { $out }; Line 17  sub out { $out };
17  sub code {  sub code {
18          my ( $self, $code ) = @_;          my ( $self, $code ) = @_;
19    
20  warn "XX code $code";  #warn "XX code $code";
21    
22          undef $out;          undef $out;
23    
# Line 34  warn "XX code $code"; Line 34  warn "XX code $code";
34  sub on_shard {  sub on_shard {
35          my ( $self, $data ) = @_;          my ( $self, $data ) = @_;
36    
37            die "data not ARRAY but ", ref $data unless ref $data eq 'ARRAY';
38    
39  warn "XX data ",dump $data;  warn "XX data ",dump $data;
40    
41          my $affected = 0;          my $affected = 0;
# Line 47  warn "XX data ",dump $data; Line 49  warn "XX data ",dump $data;
49                  eval { $coderef->( $data->[$pos] ) };                  eval { $coderef->( $data->[$pos] ) };
50    
51                  if ( $@ ) {                  if ( $@ ) {
52                          warn "ABORT $pos $@\n";                          warn "ABORT at $pos error $@\n";
53                          last;                          last;
54                  } else {                  } else {
55                          $affected++;                          $affected++;
Legend:
Removed from v.193  
changed lines
  Added in v.195
  ViewVC Help
Powered by ViewVC 1.1.26