Lines Matching refs:str
30 my ($obj, $str, $chk) = @_;
31 my $len = length($str);
32 pos($str) = 0;
34 while (pos($str) < $len){
35 if ($str =~ /\G($re_asis+)/ogc){
37 }elsif($str =~ /\G($re_encoded+)/ogsc){
46 die "This should not happen! (pos=" . pos($str) . ")";
56 my $str = "";
59 $str .= $1;
61 $str .= "+";
66 $str .= $e_utf16->decode(decode_base64($base64));
69 $str .= "+";
75 return $str;