/[Frey]/trunk/lib/Frey/Pipe.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/Frey/Pipe.pm

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

revision 861 by dpavlin, Tue Dec 16 20:59:48 2008 UTC revision 923 by dpavlin, Mon Jan 5 20:56:32 2009 UTC
# Line 60  sub as_markup { Line 60  sub as_markup {
60    
61                          warn "# pipe $part" if $self->debug;                          warn "# pipe $part" if $self->debug;
62                          my $o = $self->new_frey_class( $class, $default );                          my $o = $self->new_frey_class( $class, $default );
63    
64                            # XXX copy depends from parts of pipe
65                            if ( $o->can('depends') ) {
66                                    $o->depends;
67                                    my $current_head;
68                                    $current_head->{$_} foreach $self->head;
69                                    foreach ( $o->head ) {
70                                            next if $current_head->{$_}++;
71                                            $self->add_head( $_ );
72                                    }
73                            }
74    
75                          my $result = $o->$method;                          my $result = $o->$method;
76                          warn "# result ",length( $result ), " bytes ", ref($result);                          warn "# result ",length( $result ), " bytes ", ref($result);
77    
Legend:
Removed from v.861  
changed lines
  Added in v.923
  ViewVC Help
Powered by ViewVC 1.1.26