4 use Scalar::Util qw(dualvar);
20 my $dv = dualvar(42, 'foo');
21 eval { $foo->intval($dv) };
22 like $@, qr/Validation failed for 'Int'/, 'Int for dualvar';
24 eval { $foo->numval($dv) };
25 like $@, qr/Validation failed for 'Num'/, 'Num for dualvar';
27 cmp_ok $dv, 'eq', 'foo';
28 cmp_ok $dv, '==', 42, 'keeps dualvar-ness';