use strict;
use warnings;
use Test::More;
+use IO::Handle;
use Test::Exception;
my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
{} => [qw/Any Item Defined Ref HashRef/],
sub { die } => [qw/Any Item Defined Ref CodeRef/],
qr/.*/ => [qw/Any Item Defined Ref RegexpRef/],
+ \*main::ok => [qw/Any Item Defined Ref GlobRef/],
\*STDOUT => [qw/Any Item Defined Ref GlobRef FileHandle/],
+ IO::Handle->new => [qw/Any Item Defined Ref Object FileHandle/],
Test::Builder->new => [qw/Any Item Defined Ref Object/],
);
}
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);