croak.al

来自「ARM上的如果你对底层感兴趣」· AL 代码 · 共 18 行

# NOTE: Derived from ../LIB\Getopt\Long.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package Getopt::Long;

#line 826 "../LIB\Getopt\Long.pm (autosplit into ..\lib\auto/Getopt\Long/Croak.al)"
# To prevent Carp from being loaded unnecessarily.
sub Croak (@) {
    require 'Carp.pm';
    $Carp::CarpLevel = 1;
    Carp::croak(@_);
};

################ Documentation ################

1;
# end of Getopt::Long::Croak