Lines Matching refs:args
96 my \@args;
99 \@args = \@{\$_[0]}
102 \$args[0] .= \$_;
103 \$args[0] .= \$CGI::Pretty::LINEBREAK if \$args[0] !~ /\$CGI::Pretty::LINEBREAK\$/ && 0;
104 chomp \$args[0] if exists \$ASIS{ "\L$tagname\E" };
106 \$args[0] .= \$" if \$args[0] !~ /\$CGI::Pretty::LINEBREAK\$/ && 1;
108 chop \$args[0] unless \$" eq "";
112 \@args = ref(\$_[0]) eq 'ARRAY' ? \@{\$_[0]} : "\@_";
117 \@result = map { "\$tag\$_\$untag" } \@args;
127 } \@args;