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

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

revision 97 by dpavlin, Sun Oct 4 13:09:28 2009 UTC revision 98 by dpavlin, Sun Oct 4 14:39:50 2009 UTC
# Line 159  sub merge { Line 159  sub merge {
159  sub view {  sub view {
160          my ( $self, $view ) = @_;          my ( $self, $view ) = @_;
161    
162            $out = {};
163    
164          warn "run view $view ", -s $view, " bytes\n";          warn "run view $view ", -s $view, " bytes\n";
165    
166          my $view_code = read_file($view);          my $view_code = read_file($view);
# Line 167  sub view { Line 169  sub view {
169          foreach my $port ( keys %{ $self->{connected} } ) {          foreach my $port ( keys %{ $self->{connected} } ) {
170                  warn "get_from $port\n";                  warn "get_from $port\n";
171                  my $result = $self->get_from( $port );                  my $result = $self->get_from( $port );
172  warn dump $result;                  warn "# result ", dump $result if $self->{debug};
173                  if ( $result->{view} ) {                  if ( $result->{view} ) {
174                          $self->merge( $result->{view} );                          $self->merge( $result->{view} );
175                  } else {                  } else {
Legend:
Removed from v.97  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.26