The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package # hide from cpan
    Test::FailClassWorker;

use strict;
use DateTime;

sub perform {
    my $job = shift;
    die DateTime->now;
}

1;