The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
KHAMPTON / Magpie-1.131380 / t / lib / Core / Basic / Output.pm 
package Core::Basic::Output;
use Moose;
use Magpie::Constants;
extends 'Magpie::Transformer';

my @events = qw( get_content );

__PACKAGE__->register_events( @events );

sub load_queue { @events }

sub get_content {
    my $self = shift;
    my $ctxt = shift;
    my $out = '<html><body>' . $ctxt->{content} . '</body></html>';
    $self->resource->data($out);
    return OK;
}

1;