use strict;
use Test::More tests => 1;
dies_ok{
fail( replica_of(\&sub) );
} 'Not a (SCALAR|ARRAY|HASH) reference.';