Lines Matching refs:encode

57 my $dst = $ascii->encode($src, FB_DEFAULT);
67 eval{ $dst = $ascii->encode($src, FB_CROAK) };
77 eval{ $dst = $ascii->encode($src, FB_CROAK) };
87 $dst = $ascii->encode($src, FB_QUIET);
101     $dst = $ascii->encode($src, FB_WARN);
115     $dst = $ascii->encode($src, WARN_ON_ERR);
129 $dst = $ascii->encode($src, FB_PERLQQ);
130 is($dst, $ap, "FB_PERLQQ encode");
131 is($src, $uo, "FB_PERLQQ residue encode");
139 $dst = $ascii->encode($src, FB_HTMLCREF);
140 is($dst, $ah, "FB_HTMLCREF encode");
141 is($src, $uo, "FB_HTMLCREF residue encode");
149 $dst = $ascii->encode($src, FB_XMLCREF);
150 is($dst, $ax, "FB_XMLCREF encode");
151 is($src, $uo, "FB_XMLCREF residue encode");
159 $dst = $ascii->encode($src, sub{ sprintf "<U+%04X>", shift });
160 is($dst, $ac, "coderef encode");
161 is($src, $uo, "coderef residue encode");
169 $dst = $ascii->encode($src, sub{ $_[0] });
170 is $dst, 0x3000."", q{$ascii->encode($src, sub{ $_[0] } )};
171 $dst = encode("ascii", "\x{3000}", sub{ $_[0] });
172 is $dst, 0x3000."", q{encode("ascii", "\x{3000}", sub{ $_[0] })};
176 is $dst, 0xFF."", q{$ascii->encode($src, sub{ $_[0] } )};
183 is $dst, 0x80."", q{$utf8->encode($src, sub{ $_[0] } )};
188 $dst = $latin1->encode($src, sub { "\N{U+FF}" });
189 is $dst, "\x{ff}", q{$latin1->encode($src, sub { "\N{U+FF}" })};
190 $dst = encode("latin1", $src, sub { "\N{U+FF}" });
191 is $dst, "\x{ff}", q{encode("latin1", $src, sub { "\N{U+FF}" })};
194 $dst = $latin1->encode($src, sub { utf8::upgrade(my $r = "\x{ff}"); $r });
195 is $dst, "\x{ff}", q{$latin1->encode($src, sub { utf8::upgrade(my $r = "\x{ff}"); $r })};
196 $dst = encode("latin1", $src, sub { utf8::upgrade(my $r = "\x{ff}"); $r });
197 is $dst, "\x{ff}", q{encode("latin1", $src, sub { utf8::upgrade(my $r = "\x{ff}"); $r })};