view release on metacpan or  search on metacpan

Debug.pm  view on Meta::CPAN

721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
    }
 
    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],
                      );