view release on metacpan or  search on metacpan

Debug.pm  view on Meta::CPAN

    }

    die "Internal error: ${Module}::unravel only supports scalars, hashes and arrays";
}

sub set_defaults
{
    my $module_name = $Module;
    $module_name =~ s/::/-/g;

    my $uid = (stat( $0 ))[4];
    my $user = getpwuid($uid);

    ### Control to
    #
    my %default_to = (
		      browser => 1,
		      log     => 1,
		      file    => ["${File_base}-error.txt"],
		      mail    => [$user],
		      );