# NOTE: Derived from blib/lib/Inline.pm.
# Changes made here will be lost when autosplit is run again.
#line 605 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/receive_code.al)"
#==============================================================================
#==============================================================================
croak M02_usage() unless (defined $code and $code);
if (ref $code eq 'CODE') {
$o->{API}{code} = &$code;
elsif (ref $code eq 'ARRAY') {
$o->{API}{code} = join '', @$code;
elsif ($code =~ m|[/\\:]| and
$code =~ m|^[/\\:\w.\-\ \$\[\]<>]+$|) {
open CODE, "< $code" or croak M06_code_file_failed_open($code);
$o->{API}{code} = <CODE>;
croak M07_code_file_does_not_exist($code);
# end of Inline::receive_code