package TestCachedApp::Condition::EvenSeconds;

# $Id$

use strict;
use base qw( Workflow::Condition );
use Workflow::Exception qw( condition_error );

sub evaluate {
    my ( $self, $wf ) = @_;
    sleep 1;
    if (time() % 2 == 1) {
        condition_error "Current seconds are not divisible by 2";
    }
}

1;