The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Magpie::Pipeline::Error::Numeric;
use Moose;
extends 'Magpie::Component';

__PACKAGE__->register_events(
    'foo', 'bar'
);

sub load_queue {
    return qw( foo bar);
}

sub foo {
    my ($self, $ctxt) = @_;
    $self->set_error(418);
    return 100;
}

sub bar {
    my ($self, $ctxt) = @_;
    return 100;
}

1;