gistfile1.pl

my $verifier = Data::Verifier->new(
    profile => {
        email    => {
            post_check => sub {
                my $r = shift;
                my $status = $r->get_value('status');
                if(defined($status) && $status eq 'Publish now') {
                    return 0 unless defined($r->get_value('not_before_date_str');
                }
                return 1;
            }
        },
    }
);