Lines Matching refs:_
27 return map { ( @$_ ) } @preprocessor_conds;
87 if (ref($_[$#_]) eq "HASH") {
88 %opts = %{$_[$#_]};
89 pop @_;
100 if (ref($_[$#_]) eq "HASH") {
101 %opts = %{$_[$#_]};
102 pop @_;
113 if (ref($_[$#_]) eq "HASH") {
114 %opts = %{$_[$#_]};
115 pop @_;
130 if (ref($_[$#_]) eq "HASH") {
131 %opts = %{$_[$#_]};
132 pop @_;
190 if (ref($_[$#_]) eq "HASH") {
191 %opts = %{$_[$#_]};
192 pop @_;
207 if (ref($_[$#_]) eq "HASH") {
208 %opts = %{$_[$#_]};
209 pop @_;
216 map { m|^!(.*)$| ? $1 : '!'.$_ } @$stuff
226 if (ref($_[$#_]) eq "HASH") {
227 %opts = %{$_[$#_]};
228 pop @_;
753 my %opts = %{$_[0]};
775 if (ref($_[$#_]) eq "HASH") {
776 %opts = %{$_[$#_]};
777 pop @_;
815 $_ = undef;
817 foreach my $line (@_) {
825 my @lines = map { ( undef, $_ ) } split m|\R|, $line;
835 if (!defined($_)) {
842 $_ = "" unless defined $_;
843 $_ .= shift @lines;
846 $_ = $`;
995 $_ = $';
1014 $_ = $';
1019 $_ = "";
1036 $_ = $space.$rest;
1050 $_ = $';
1073 $_ = $';
1096 $_ = $';
1106 $_ = $';
1110 $_ = ""; # (just discard it entirely)
1118 $_ = $';
1136 $_ = $rest;
1139 $_ = $';
1157 if (ref($_[$#_]) eq "HASH") {
1158 %opts = %{$_[$#_]};
1159 pop @_;
1162 my @handlers = @_;
1174 map { s/(<<<|>>>)//g; $_ }