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 @_;
759 my %opts = %{$_[0]};
781 if (ref($_[$#_]) eq "HASH") {
782 %opts = %{$_[$#_]};
783 pop @_;
821 $_ = undef;
823 foreach my $line (@_) {
831 my @lines = map { ( undef, $_ ) } split m|\R|, $line;
841 if (!defined($_)) {
848 $_ = "" unless defined $_;
849 $_ .= shift @lines;
852 $_ = $`;
1001 $_ = $';
1020 $_ = $';
1025 $_ = "";
1042 $_ = $space.$rest;
1056 $_ = $';
1079 $_ = $';
1102 $_ = $';
1112 $_ = $';
1116 $_ = ""; # (just discard it entirely)
1124 $_ = $';
1142 $_ = $rest;
1145 $_ = $';
1163 if (ref($_[$#_]) eq "HASH") {
1164 %opts = %{$_[$#_]};
1165 pop @_;
1168 my @handlers = @_;
1180 map { s/(<<<|>>>)//g; $_ }
