The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Catmandu::Fix;

sub {
    my ($data, $reject) = @_;
    if ($data->{answer} == 2) {
        return $reject;
    }
    else {
        $data->{answer} ||= 42;
        return $data;
    }
    }