package Carp; our @ISA = qw(); sub Regexp::CARP_TRACE() {} sub _cgc() {} sub _fetch_sub { my ($_pack, $_o_sub) = @_ } sub caller_info() {} sub carp() {} sub cluck() {} sub confess() {} sub croak() {} sub export_fail() {} sub format_arg() {} sub get_status() {} sub get_subname() {} sub long_error_loc() {} sub longmess() {} sub longmess_heavy() {} sub ret_backtrace { my ($_i, @_more_paras) = @_ } sub ret_summary { my ($_i, @_more_paras) = @_ } sub short_error_loc() {} sub shortmess() {} sub shortmess_heavy() {} sub str_len_trim() {} sub trusts() {} sub trusts_directly() {}