--- trunk/lib/Frey/Pipe.pm 2008/11/25 14:58:59 518 +++ trunk/lib/Frey/Pipe.pm 2008/11/25 17:15:18 519 @@ -43,7 +43,6 @@ warn "# part: '$part'"; if ( $part =~ m{^([^/]+)/([^\+\?]+)(.*)?$} ) { my ( $class, $method, $args ) = ( $1, $2, $3 ); - push @parts, { $class => { method => $method, args => $args } }; my $params = $pipe; $params = {} unless defined $params; if ( defined $args ) { @@ -63,6 +62,8 @@ my $result = $o->$method; warn "# result ",length( $result ), " bytes ", ref($result); + $self->add_status({ $part => { $class => { method => $method, args => $args } } }); + $self->content_type( $o->content_type ) if $o->can('content_type'); $out = $result; @@ -73,8 +74,6 @@ } } - warn "# pipe ", $self->title, " parts ",dump( @parts ); - $self->add_status( $_ ) foreach @parts; return $out; }