sub sub_exists {
   my $name = shift;
   no strict qw( refs );
   return exists( &$name );
}

##</code><code>##

sub sub_exists {
   my $name = shift;
   no strict qw( refs );
   use autovivification;  # Disable module to avoid bug.
   return exists( &$name );
}