Lines Matching refs:ARGS
485 my %ARGS =
493 $ARGS{C_SUBNAME} ||= $ARGS{XS_SUBNAME}; # No-one sane will have C_SUBNAME eq '0'
495 croak "Module name not specified" unless length $ARGS{NAME};
498 require ExtUtils::Constant::ProxySubs if $ARGS{PROXYSUBS};
500 my $c_fh = $ARGS{C_FH};
511 open $c_fh, ">$ARGS{C_FILE}" or die "Can't open $ARGS{C_FILE}: $!";
514 my $xs_fh = $ARGS{XS_FH};
520 open $xs_fh, ">$ARGS{XS_FILE}" or die "Can't open $ARGS{XS_FILE}: $!";
527 if ($ARGS{PROXYSUBS}) {
528 $ARGS{C_FH} = $c_fh;
529 $ARGS{XS_FH} = $xs_fh;
530 ExtUtils::Constant::ProxySubs->WriteConstants(%ARGS);
539 foreach (ExtUtils::Constant::XS->C_constant({package => $ARGS{NAME},
540 subname => $ARGS{C_SUBNAME},
542 $ARGS{DEFAULT_TYPE},
545 $ARGS{BREAKOUT_AT}},
546 @{$ARGS{NAMES}})) {
549 print $xs_fh XS_constant ($ARGS{NAME}, $types, $ARGS{XS_SUBNAME},
550 $ARGS{C_SUBNAME});
553 close $c_fh or warn "Error closing $ARGS{C_FILE}: $!" unless $ARGS{C_FH};
554 close $xs_fh or warn "Error closing $ARGS{XS_FILE}: $!" unless $ARGS{XS_FH};