--- trunk/lib/Frey/Pipe.pm 2008/11/19 04:14:12 451 +++ trunk/lib/Frey/Pipe.pm 2008/11/19 15:28:23 455 @@ -11,25 +11,25 @@ =head1 EXAMPLE - Frey::Feed/data + uri=http://blog.rot13.org/index.xml | Frey::Dumper/markup + Frey::Feed/as_data + uri=http://blog.rot13.org/index.xml | Frey::Dumper/as_markup this will produce following code: Frey::Dumper->new( data => - Frey::Feed->new( uri => 'http://blog.rot13.org/index.xml' )->data - )->markup + Frey::Feed->new( uri => 'http://blog.rot13.org/index.xml' )->as_data + )->as_markup =cut has pipe => ( is => 'rw', required => 1, - default => 'Frey::Feed/data+uri=http://blog.rot13.org/index.xml|Frey::Dumper/markup', + default => 'Frey::Feed/as_data+uri=http://blog.rot13.org/index.xml|Frey::Dumper/as_markup', ); use Data::Dump qw/dump/; -sub markup { +sub as_markup { my ($self) = @_; my $out; @@ -65,6 +65,7 @@ $self->content_type( $o->content_type ) if $o->can('content_type'); $out = $result; + $method =~ s{^as_}{}; $pipe = { $method => $result }; } else { die "don't know what to do with '$part' from ",$self->pipe;