Home
last modified time | relevance | path

Searched refs:Encode (Results 1 – 25 of 279) sorted by relevance

12345678910>>...12

/openbsd-src/gnu/usr.bin/perl/cpan/Encode/t/
H A Dutf32warnings.t12 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");
[all …]
H A Drt85489.t8 print "1..0 # Skip: Encode was not built\n";
23 use Encode;
25 my $ascii = Encode::find_encoding("ascii");
29 ok !Encode::is_utf8($str), "UTF8 flag is not set on input string before ascii encode";
31 ok !Encode::is_utf8($str), "UTF8 flag is not set on input string after ascii encode";
34 ok !Encode::is_utf8($str), "UTF8 flag is not set on input string before Encode::encode ascii";
35 Encode::encode("ascii", $str);
36 ok !Encode::is_utf8($str), "UTF8 flag is not set on input string after Encode
[all...]
H A Ddecode.t5 use Encode qw(decode_utf8 FB_CROAK find_encoding decode);
20 croak_ok { Encode::decode_utf8($orig, FB_CROAK) };
23 croak_ok { Encode::decode('utf-8', $orig2, FB_CROAK) };
26 croak_ok { Encode::decode_utf8($new, FB_CROAK) };
52 is(Encode::decode_utf8($1), "\N{U+C0}", 'passing magic regex to Encode::decode_utf8');
58 is(Encode::decode_utf8(*a), "*main::\N{U+C0}", 'passing typeglob to Encode::decode_utf8');
63 is(Encode::encode_utf8($1), "\xC3\x80", 'passing magic regex to Encode::encode_utf8');
67 is(Encode::decode('utf-8', $1), "\N{U+C0}", 'passing magic regex to UTF-8 decode');
71 is(Encode::decode('utf-8', *a), "*main::\N{U+C0}", 'passing typeglob to UTF-8 decode');
75 is(Encode::encode('utf-8', $1), "\xC3\x80", 'passing magic regex to UTF-8 encode');
[all …]
H A DAliases.t10 print "1..0 # Skip: Encode was not built\n";
16 use Encode;
17 use Encode::Alias;
93 $a2c{"ISO Latin $i"} = "iso-8859-$Encode::Alias::Latin2iso[$i]";
95 for my $k (keys %Encode::Alias::Winlatin2cp){
96 my $v = $Encode::Alias::Winlatin2cp{$k};
113 $Encode::ON_EBCDIC = $ON_EBCDIC;
126 delete @Encode::ExtModule{
141 my $e = Encode::find_encoding($a);
156 Encode
[all...]
H A Dmime-header.t12 print "1..0 # Skip: Encode was not built\n";
30 use_ok("Encode::MIME::Header");
125 # Encode::MIME::Header pre 2.83
184 Encode::decode_utf8("\x{c2}\x{a3}xxxxxxxxxxxxxxxxxxx0") => "=?UTF-8?B?wqN4eHh4eHh4eHh4eHh4eHh4eHh4MA==?=", "=?UTF-8?Q?=C2=A3xxxxxxxxxxxxxxxxxxx0?=",
206 $str = Encode::encode_utf8($str);
223 is Encode::encode("MIME-Header", $d) => $b, info("encode default", $d => $b);
224 is Encode::encode("MIME-B", $d) => $b, info("encode base64", $d => $b);
225 is Encode::encode("MIME-Q", $d) => $q, info("encode qp", $d => $q);
226 is Encode::decode("MIME-B", $b) => $d, info("decode base64", $b => $d);
227 is Encode
[all...]
H A Dtaint.t3 use Encode qw(encode decode);
4 local %Encode::ExtModule = %Encode::Config::ExtModule;
14 my @names = Encode->encodings(':all');
57 Encode::_utf8_on($bin);
58 ok(!Encode::is_utf8($bin), "Encode::_utf8_on does not work on tainted values");
59 Encode::_utf8_off($str);
60 ok(Encode::is_utf8($str), "Encode::_utf8_off does not work on tainted values");
H A DEncode.t12 print "1..0 # Skip: Encode was not built\n";
18 use Encode qw(from_to encode decode
22 my @encodings = grep(/iso-?8859/,Encode::encodings());
33 my $sym = Encode->getEncoding('symbol');
41 my $tab = Encode->getEncoding($enc);
138 package Encode::Dummy;
142 ok(decode(latin1 => Encode::Dummy->new("foobar")), "foobar");
143 ok(encode(utf8 => Encode::Dummy->new("foobar")), "foobar");
153 encode($name, $kopy, Encode::FB_CROAK);
158 encode($name, $kopy, Encode
[all...]
H A Dmime-name.t12 print "1..0 # Skip: Encode was not built\n";
24 use Encode;
29 use_ok("Encode::MIME::Name");
32 for my $canon ( sort keys %Encode::MIME::Name::MIME_NAME_OF ) {
34 my $mime_name = $Encode::MIME::Name::MIME_NAME_OF{$canon};
40 for my $mime_name ( sort keys %Encode::MIME::Name::ENCODE_NAME_OF ) {
42 my $canon = $Encode::MIME::Name::ENCODE_NAME_OF{$mime_name};
43 my $mime_name = $Encode::MIME::Name::MIME_NAME_OF{$canon};
H A Dmime_header_iso2022jp.t6 plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms';
13 use Encode;
16 use_ok('Encode::MIME::Header::ISO_2022_JP');
19 require_ok('Encode::MIME::Header::ISO_2022_JP');
41 my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded));
42 my $utf8 = Encode::decode('MIME-Header', $header);
H A Dutf8ref.t7 use Encode;
29 is Encode::encode('utf8', undef), undef;
30 is Encode::decode('utf8', undef), undef;
32 is Encode::encode('utf8', ''), '';
33 is Encode::decode('utf8', ''), '';
H A Dat-tw.t6 print "1..0 # Skip: Encode was not built\n";
22 use Encode;
27 use_ok('Encode::TW');
86 is(Encode::decode($enc, $str), $utf, "[$enc] decode - $title");
87 is(Encode::encode($enc, $utf), $str, "[$enc] encode - $title");
90 my $utf8 = Encode::encode('utf-8', $utf);
92 Encode::from_to($str2, $enc, 'utf-8');
95 Encode::from_to($utf8, 'utf-8', $enc); # convert $utf8 as $enc
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/
H A DEncode.pm2 # $Id: Encode.pm,v 3.21 2024/02/25 22:17:32 dankogai Exp $
4 package Encode; package
18 our @CARP_NOT = qw(Encode::Encoder);
53 use Encode::Alias ();
54 use Encode::MIME::Name;
61 require Encode::Config;
70 require Encode::ConfigLocal;
81 for my $mod ( map { m/::/ ? $_ : "Encode::$_" } @_ ) {
109 push @Encode::CARP_NOT, $class unless grep { $_ eq $class } @Encode
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/
H A DGSM0338.pm4 package Encode::GSM0338;
13 use Encode qw(:fallbacks);
181 and ( $chk & Encode::STOP_AT_PARTIAL ) )
188 if $chk & Encode::DIE_ON_ERR;
191 if $chk & Encode::WARN_ON_ERR;
192 if ( $chk & Encode::RETURN_ON_ERR ) {
199 $_[1] = $bytes if not ref $chk and $chk and !( $chk & Encode::LEAVE_SRC );
216 if $chk & Encode::DIE_ON_ERR;
218 if $chk & Encode::WARN_ON_ERR;
219 if ( $chk & Encode::RETURN_ON_ERR ) {
[all …]
H A DGuess.pm1 package Encode::Guess;
4 use Encode qw(:fallbacks find_encoding);
14 Encode::define_encoding($obj, $Canon);
35 my $self = ref($class) ? $class : $Encode::Encoding{$Canon};
42 my $self = ref($class) ? $class : $Encode::Encoding{$Canon};
63 guess( $Encode::Encoding{$Canon}, @_ );
68 my $obj = ref($class) ? $class : $Encode::Encoding{$Canon};
75 if ( Encode::is_utf8($octet) ) {
77 Encode::_utf8_off($octet);
81 use Encode::Unicode;
H A DPerlIO.pod3 Encode::PerlIO -- a detailed document on Encode and PerlIO
10 C<Encode> provides a "layer" (see L<PerlIO>) which can transform
15 use Encode;
71 Here is a crude diagram of how filehandle, PerlIO, and Encode
76 Encode
79 (currently with 1024 bytes) and passes the buffer to Encode.
80 Encode tries to convert the valid part and passes it back to PerlIO,
82 PerlIO then appends more data to the buffer, calls Encode again,
88 PerlIO and Encode tries to encode (from utf8) more than 1024 bytes
97 Encode converts from the beginning to \x7E, leaving \xe3 in the buffer
[all …]
H A DAlias.pm1 package Encode::Alias;
45 ( ref($new) ) ? $new : Encode::find_encoding($new);
57 for my $name ( keys %Encode::Encoding, keys %Encode::ExtModule )
60 $Alias{$find} = Encode::find_encoding($name);
111 use Encode ();
230 unless ($Encode::ON_EBCDIC) {
H A DEncoding.pm1 package Encode::Encoding;
11 use Encode ();
12 use Encode::MIME::Name;
22 Encode::define_encoding( $obj, $canonical, @_ );
28 return Encode::MIME::Name::get_mime_name(shift->name);
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/
H A DLocale.pm15 use Encode ();
16 use Encode::Alias ();
120 unless (Encode::find_encoding($ENCODING_LOCALE)) {
124 require Encode::HanExtra;
129 $foundit++ if Encode::find_encoding($ENCODING_LOCALE);
140 Encode::Alias::define_alias(sub {
148 for my $a (sort keys %Encode::Alias::Alias) {
150 delete $Encode::Alias::Alias{$a};
168 $_ = Encode::decode(locale => $_, @_);
173 my $k = Encode::encode(locale => shift);
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/
H A DTranscodeSmart.pm9 use Encode;
16 return Encode::->encodings(':all');
20 return Encode::resolve_alias($_[1]);
24 return "Encode.pm v" .($Encode::VERSION || '?');
28 my $e = Encode::find_encoding($_[1]);
33 $x = $e->decode($x) unless Encode::is_utf8($x);
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/JP/
H A DJIS7.pm1 package Encode::JP::JIS7;
6 use Encode qw(:fallbacks);
17 Encode::define_encoding($obj, $name);
25 use Encode::CJKConstants qw(:all);
40 return Encode::decode( 'euc-jp', $str, FB_PERLQQ );
48 require Encode::JP::H2Z;
55 my $octet = Encode::encode( 'euc-jp', $utf8, $chk || 0 );
56 $h2z and &Encode::JP::H2Z::h2z( \$octet );
91 $chunk = Encode::decode( 'euc-jp', $chunk, 0 );
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/
H A Dcz-08encoding.t18 plan skip_all => "Encode is not available"
21 eval { require Encode; Encode->import(); };
23 plan skip_all => "Encode is not available"
52 my $cs = memGzip(Encode::encode_utf8($s));
81 my $ces = compress(Encode::encode_utf8($s_copy));
85 my $un = Encode::decode_utf8(uncompress($ces));
89 $un = Encode::decode_utf8(uncompress($ces));
98 my $byte_len = length( Encode::encode_utf8($s) );
104 is $fil->gzwrite(Encode
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/bin/
H A Dpiconv7 use Encode ;
8 use Encode::Alias;
43 $Opt{string} and Encode::from_to($Opt{string}, $from, $to) and print $Opt{string} and exit;
58 $Opt{perlqq} and $Opt{check} = Encode::PERLQQ;
59 $Opt{htmlcref} and $Opt{check} = Encode::HTMLCREF;
60 $Opt{xmlcref} and $Opt{check} = Encode::XMLCREF;
62 my $efrom = Encode->getEncoding($from) || die "Unknown encoding '$from'";
63 my $eto = Encode->getEncoding($to) || die "Unknown encoding '$to'";
94 Encode::from_to( $_, $from, $to, $Opt{check} );
98 Encode::from_to( $_, $from, $to, $Opt{check} );
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/compress/
H A Dencode.pl11 plan skip_all => "Encode is not available"
14 eval { require Encode; Encode->import(); };
16 plan skip_all => "Encode is not available"
38 my $encString = Encode::encode_utf8($string);
61 title "OO Mode: To $to, Encode by hand";
98 my $decode = Encode::decode_utf8($got);
122 eval { my $cs = $CompressClass->can('new')->( $CompressClass, \$output, Encode => 'fred'); } ;
128 title "Encode option";
132 title "Encode
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/KR/
H A D2022_KR.pm1 package Encode::KR::2022_KR;
6 use Encode qw(:fallbacks);
25 return Encode::decode( 'euc-kr', $res, FB_PERLQQ );
34 my $octet = Encode::encode( 'euc-kr', $utf8, FB_PERLQQ );
39 use Encode::CJKConstants qw(:all);
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/MIME/Header/
H A DISO_2022_JP.pm1 package Encode::MIME::Header::ISO_2022_JP;
11 Encode::define_encoding($obj, 'MIME-Header-ISO_2022_JP');
16 use Encode::CJKConstants qw(%RE);
28 utf8::encode($str) if ( Encode::is_utf8($str) );
29 Encode::from_to( $str, 'utf8', 'euc-jp' );
110 Encode::from_to( $iso_2022_jp, 'euc-jp', 'iso-2022-jp' );

12345678910>>...12