Lines Matching refs:Encode

12 use Encode;
25 …my $ret = $enc->encode( "a", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SR…
33 …$enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
40 …$enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
47 …$enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
54     $enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
61     $enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
68 …my $ret = Encode::encode( $enc, "a", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::…
69     is($warn, undef, "Calling Encode::encode for UTF32-LE with valid string produces no warnings");
70 …  is($ret, $valid, "Calling Encode::encode for UTF32-LE with valid string returns correct output");
76 …Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEA…
77 …like($warn, qr/UTF-16 surrogate.* at $script line /, "Calling Encode::encode for UTF32-LE with inv…
84 …Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEA…
85 …is($warn, undef, "Warning from Encode::encode for UTF32-LE can be silenced via no warnings 'utf8'"…
91 …Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEA…
92     is($warn, undef, "Warning from Encode::encode for UTF32-LE can be silenced via no warnings");
98     Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
99 …like($warn, qr/UTF-16 surrogate.* at $script line /, "Warning from Encode::encode for UTF32-LE can…
105     Encode::encode( $enc, "\x{D800}", Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
106 …like($warn, qr/UTF-16 surrogate.* at $script line /, "Warning from Encode::encode for UTF32-LE can…
112 …my $ret = $enc->decode( $valid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE…
120 …  $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
127 …  $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
134 …  $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
141     $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
148     $enc->decode( $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
155 …my $ret = Encode::decode( $enc, $valid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encod…
156     is($warn, undef, "Calling Encode::decode for UTF32-LE with valid string produces no warnings");
157     is($ret, "a", "Calling Encode::decode for UTF32-LE with valid string returns correct output");
163 …Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE…
164 …like($warn, qr/may not be portable.* at $script line /, "Calling Encode::decode for UTF32-LE with …
170 …Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE…
171 …is($warn, undef, "Warning from Encode::decode for UTF32-LE can be silenced via no warnings 'utf8'"…
177 …Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE…
178     is($warn, undef, "Warning from Encode::decode for UTF32-LE can be silenced via no warnings");
184     Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
185 …like($warn, qr/may not be portable.* at $script line /, "Warning from Encode::decode for UTF32-LE …
191     Encode::decode( $enc, $invalid, Encode::WARN_ON_ERR | Encode::LEAVE_SRC );
192 …like($warn, qr/may not be portable.* at $script line /, "Warning from Encode::decode for UTF32-LE …
197 $PerlIO::encoding::fallback |= Encode::ONLY_PRAGMA_WARNINGS;