1 |
package Frey::Pipe; |
package Frey::Pipe; |
2 |
use Moose; |
use Moose; |
3 |
extends 'Frey'; |
extends 'Frey::ClassLoader'; |
4 |
with 'Frey::Web'; |
with 'Frey::Web'; |
5 |
|
|
6 |
use Frey::Action; |
use Frey::Action; |
58 |
warn "$class need more params than ",dump( $default ) if $html && $self->debug; # FIXME replace with query |
warn "$class need more params than ",dump( $default ) if $html && $self->debug; # FIXME replace with query |
59 |
|
|
60 |
warn "# pipe $part" if $self->debug; |
warn "# pipe $part" if $self->debug; |
61 |
my $o = $class->new( %$default ); |
my $o = $self->new_frey_class( $class, $default ); |
62 |
my $result = $o->$method; |
my $result = $o->$method; |
63 |
warn "# result ",length( $result ), " bytes ", ref($result); |
warn "# result ",length( $result ), " bytes ", ref($result); |
64 |
|
|