use strict;
use warnings;
use IO::All;
use feature qw(say);

my $io = io('/home/vic');
say *$io->{_constructor};

my $io2 = IO::All->new();
$io2->dir('/home/vic/');
say *$io2->{_constructor};

__END__
CODE(0x16de930)
Use of uninitialized value in say at karl.pl line 14.