The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Mock::Hook::PreWork;
use strict;
use warnings;
use base 'Qudo::Hook';

sub hook_point { 'pre_work' }

sub load {
    my ($class, $klass) = @_;

    $klass->hooks->{pre_work}->{stdout} = sub {
        my $args = shift;
        print STDOUT "Worker::Test: pre worked!\n";
    };
}

sub unload {
    my ($class, $klass) = @_;

    delete $klass->hooks->{pre_work}->{stdout};

}

1;