use strict;
use warnings;
use Test::More;
-use Test::Exception;
use IO::Handle;
+use t::Exception;
my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
Ref ScalarRef ArrayRef HashRef CodeRef RegexpRef GlobRef
}
for my $value (@{ $values_for_type{$type}{invalid} }) {
- my $display = defined($value) ? $value : 'undef';
+ my $display = defined($value) ? overload::StrVal($value) : 'undef';
my $via_new;
throws_ok {
$via_new = Class->new($type => $value);