1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
package Magpie::Pipeline::Breadboard::Simple;
use Moose;
extends 'Magpie::Transformer';
use Magpie::Constants;
use Bread::Board;
__PACKAGE__->register_events(qw( foo baz ));
sub load_queue {
return qw( foo baz );
}
sub foo {
my ($self, $ctxt) = @_;
my $body = $self->response->body || '';
$body .= '_simplefoo_' . '_' . $self->resolve_asset( service => 'somevar' ) . '_';
$self->response->body( $body );
return OK;
}
sub baz {
my ($self, $ctxt) = @_;
my $body = $self->response->body || '';
$body .= '_simplebaz_';
$self->add_asset( service 'othervar' => 'other value' );
$self->response->body( $body );
return OK;
}
1;
|
