Lines Matching refs:key
116 my $key = lc(shift(@param));
117 $key =~ s/^\-//;
118 if (exists $pos{$key}) {
119 $result[$pos{$key}] = shift(@param);
121 $leftover{$key} = shift(@param);
138 my($key) = $_;
139 $key=~s/^\-//; # get rid of initial - if present
142 # $key=~tr/A-Z_/a-z-/; # parameters are lower case, use dashes
144 ($key="\L$key") =~ tr/_/-/; # parameters are lower case, use dashes
147 push(@att,defined($attr->{$_}) ? qq/$key=$quote$value$quote/ : qq/$key/);