view release on metacpan or  search on metacpan

script/uniquote  view on Meta::CPAN

19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
use Carp qw[ confess cluck ];
use Getopt::Long qw[ GetOptions ];
use Pod::Usage;
 
use File::Basename;
 
#################################################################
 
sub main;
sub atexit(&);
sub convert_to_U_numbers(_);
sub convert_to_backslashes(_);
sub convert_to_bytes(_);
sub convert_to_hex(_);
sub convert_to_html4(_);
sub convert_to_html5(_);
sub convert_to_names(_);
sub convert_to_octal(_);
sub convert_to_xml(_);
sub debug($);

script/uniquote  view on Meta::CPAN

94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
    print STDERR "$0: $errmsg";
    if ($Errors++ > TOO_MANY_ERRORS) {
        panic("too many errors");
    }
}
 
sub panic($) {
    confess "$0: [INTERNAL ERROR] @_";
}
 
sub atexit(&) {
    my $coderef = shift();
    eval q{ END { &$coderef } };
    die if $@;
}
 
 
sub set_traps() {
 
    # give a full stack dump on any untrapped exceptions
    $SIG{__DIE__} = sub {