data-validator-nothrow.pl

#!/usr/bin/env perl
# Time-stamp: <2016-06-30 22:05:57 JST, hirose31>

use strict;
use warnings;
use 5.010_000;
use utf8;

use Data::Validator;

sub t {
    my $v = shift;

    state $rule = Data::Validator->new(
        n => { isa => 'Num' },
    )->with('NoThrow');

    my $args = $rule->validate(n => $v);
    print $rule->has_errors ? 'invalid' : 'valid  ';
    # $rule->clear_errors if $rule->has_errors;
    print " - $v\n";
}

t(2);
t('foo');
t(2); # clear_errors しないと invalid になる！！！

__END__
valid   - 2
invalid - foo
invalid - 2