package Test::Deep; use strict; use warnings; { *{array_each_orHash} = sub { require "Test/Deep/ArrayEachOrHash.pm"; my $obj = Test::Deep::ArrayEachOrHash->new(@_); return $obj; }; push(@Test::Deep::EXPORT, "array_each_orHash"); } 1;