view release on metacpan or  search on metacpan

script/uniquote  view on Meta::CPAN

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

    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 {