The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Test3::Foo::One;
use Moose;
extends 'Test3::Base::Foo';

sub routes {
    return {
        input_queue => {
            my_type => {
                code => \&consume_it,
            }
        },
    };
}

has messages => (
    isa => 'ArrayRef',
    is => 'rw',
    default => sub { [ ] },
);

sub consume_it {
    my ($self,$message,$headers) = @_;

    push @{$self->messages},[$headers,$message];

    return;
}

1;