Home
last modified time | relevance | path

Searched full:encode (Results 1 – 25 of 1412) sorted by relevance

12345678910>>...57

/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/
H A DConfig.pm4 package Encode::Config;
12 # Encode::Byte
13 #iso-8859-1 is in Encode.pm itself
14 'iso-8859-2' => 'Encode::Byte',
15 'iso-8859-3' => 'Encode::Byte',
16 'iso-8859-4' => 'Encode::Byte',
17 'iso-8859-5' => 'Encode::Byte',
18 'iso-8859-6' => 'Encode::Byte',
19 'iso-8859-7' => 'Encode::Byte',
20 'iso-8859-8' => 'Encode::Byte',
[all …]
H A DEncoding.pm1 package Encode::Encoding;
8 our @CARP_NOT = qw(Encode Encode::Encoder);
11 use Encode ();
12 use Encode::MIME::Name;
22 Encode::define_encoding( $obj, $canonical, @_ );
28 return Encode::MIME::Name::get_mime_name(shift->name);
52 sub fromUnicode { shift->encode(@_) }
58 sub encode { subroutine
61 Carp::croak( $class . "->encode() not defined!" );
67 Carp::croak( $class . "->encode() not defined!" );
[all …]
H A DGuess.pm1 package Encode::Guess;
4 use Encode qw(:fallbacks find_encoding);
14 Encode::define_encoding($obj, $Canon);
16 use parent qw(Encode::Encoding);
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);
[all …]
H A DEncoder.pm4 package Encode::Encoder;
15 use Encode qw(encode decode find_encoding from_to);
21 $encname = Encode::is_utf8($data) ? 'utf8' : '';
88 $self->{data} = $obj->encode( $self->{data}, 1 );
105 Encode::Encoder -- Object Oriented Encoder
109 use Encode::Encoder;
110 # Encode::encode("ISO-8859-1", $data);
111 Encode::Encoder->new($data)->iso_8859_1; # OOP way
113 use Encode::Encoder qw(encoder);
126 B<Encode::Encoder> allows you to use Encode in an object-oriented
[all …]
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 …]
/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…
26 …is($warn, undef, "Calling encode on UTF32-LE encode object with valid string produces no warnings"…
27 …is($ret, $valid, "Calling encode on UTF32-LE encode object with valid string returns correct outpu…
33 …$enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
34 …like($warn, qr/UTF-16 surrogate.* at $script line /, "Calling encode on UTF32-LE encode object wit…
40 …$enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
41 …is($warn, undef, "Warning from encode method of UTF32-LE encode object can be silenced via no warn…
47 …$enc->encode( "\x{D800}", Encode::WARN_ON_ERR | Encode::ONLY_PRAGMA_WARNINGS | Encode::LEAVE_SRC );
48 …is($warn, undef, "Warning from encode method of UTF32-LE encode object can be silenced via no warn…
[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";
30 $ascii->encode($str);
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
[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) };
48 is($latin1->encode($1), "\x80", 'passing magic regex to latin1 encode');
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');
[all …]
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');
34 my $uni = $sym->decode(encode(ascii => 'a'));
36 $str = $sym->encode("\N{Beta}");
41 my $tab = Encode->getEncoding($enc);
45 $cpy = $tab->encode($uni);
119 is encode('utf
[all...]
H A Dtaint.t3 use Encode qw(encode decode);
4 local %Encode::ExtModule = %Encode::Config::ExtModule;
9 my $str = "dan\x{5f3e}" . $taint; # tainted string to encode
10 my $bin = encode('UTF-8', $str); # tainted binary to decode
13 my $notaint_bin = encode('UTF-8', $notaint_str);
14 my @names = Encode->encodings(':all');
24 $e = encode($name, $str);
28 ok tainted($e), "encode $name";
42 $e = encode($name, $notaint_str);
46 ok ! tainted($e), "encode $name";
[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
177 # double encode
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
[all...]
H A Dfallback.t8 print "1..0 # Skip: Encode was not built\n";
21 use Encode q(:all);
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");
[all...]
H A DUnicode.t11 print "1..0 # Skip: Encode was not built\n";
24 use Encode qw(encode decode find_encoding);
58 is($n_16be, encode('UTF-16BE', $nasty), qq{encode UTF-16BE});
59 is($n_16le, encode('UTF-16LE', $nasty), qq{encode UTF-16LE});
60 is($n_32be, encode('UTF-32BE', $nasty), qq{encode UTF-32BE});
61 is($n_32le, encode('UT
[all...]
H A Dgsm0338.t8 print "1..0 # Skip: Encode was not built\n";
17 use Encode;
18 use Encode::GSM0338;
22 $PerlIO::encoding::fallback |= Encode::STOP_AT_PARTIAL;
24 my $chk = Encode::LEAVE_SRC();
53 my $u = $Encode::GSM0338::GSM2UNI{$c};
58 eval { decode( "gsm0338", $c . "\xff", $chk | Encode::FB_CROAK ) };
60 is encode( "gsm0338", $u, $chk ), $c, sprintf( "encode %s", eu($u) );
61 eval { encode( "gsm033
[all...]
H A Dguess.t4 print "1..0 # Skip: Encode was not built\n";
17 use Encode qw(decode encode find_encoding _utf8_off);
21 BEGIN { use_ok("Encode::Guess") }
27 my $utf16 = encode('UTF-16', $utf8on);
28 my $utf32 = encode('UTF-32', $utf8on);
51 Encode::Guess->set_suspects(@jp);
54 my $test = encode($jp, $utf8on);
58 is (decode('Guess', encode('euc-jp', $utf8on)), $utf8on, "decode('Guess')");
59 eval{ encode('Gues
[all...]
H A Dundef.t6 use Encode qw(encode decode find_encoding);
7 use Encode::Encoder qw(encoder);
9 local %Encode::ExtModule = %Encode::Config::ExtModule;
11 my @names = Encode->encodings(':all');
21 is($enc->encode(undef), undef, "find_encoding('$name')->encode(undef) returns undef");
23 is(encode($name, undef), undef, "encode('$name', undef) returns undef");
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dutftaint.t29 my $encode = $ary->[0];
34 is(tainted($taint), tainted($arg), "tainted: $encode, before test");
38 is($lconcat, $string.UTF8, "compare: $encode, concat left");
40 is(tainted($lconcat), tainted($arg), "tainted: $encode, concat left");
44 is($rconcat, UTF8.$string, "compare: $encode, concat right");
46 is(tainted($rconcat), tainted($arg), "tainted: $encode, concat right");
49 is($ljoin, join('!', $string, UTF8), "compare: $encode, join left");
51 is(tainted($ljoin), tainted($arg), "tainted: $encode, join left");
54 is($rjoin, join('!', UTF8, $string), "compare: $encode, join right");
56 is(tainted($rjoin), tainted($arg), "tainted: $encode, join right");
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/
H A DLocale.pm15 use Encode ();
16 use Encode::Alias ();
91 # Workaround of Encode < v2.25. The "646" encoding alias was
92 # introduced in Encode-2.25, but we don't want to require that version
103 # Workaround of Encode < v2.71 for "cp65000" and "cp65001"
104 …The "cp65000" and "cp65001" aliases were added in [Encode v2.71](https://github.com/dankogai/p5-en…
105 …# via commit <https://github.com/dankogai/p5-encode/commit/84b9c1101d5251d37e226f80d1c678171877904…
120 unless (Encode::find_encoding($ENCODING_LOCALE)) {
124 require Encode::HanExtra;
127 die "Need Encode::HanExtra to be installed to support locale codeset ($ENCODING_LOCALE), stopped";
[all …]
/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);
23 decode decode_utf8 encode encode_utf8 str2bytes bytes2str
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
193 sub encode { global() subroutine
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/lib/Encode/MIME/
H A DHeader.pm1 package Encode::MIME::Header;
8 use Encode ();
14 encode => 'B', # encode with 'B' or 'Q' ?
15 charset => 'UTF-8', # encode charset
35 encode => 'Q',
39 Encode::define_encoding($_, $_->{Name}) foreach @objs;
41 use parent qw(Encode::Encoding);
125 my $enc = Encode::find_mime_encoding($charset);
131 $enc = Encode::find_encoding($charset);
135 … Carp::croak qq(Unknown charset "$charset") if not ref $chk and $chk and $chk & Encode::DIE_ON_ERR;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/
H A D020_unknown.t12 eval q| $json->encode( [ sub {} ] ) |;
15 eval q| $json->encode( [ \-1 ] ) |;
16 ok( $@ =~ /cannot encode reference to scalar/, $@ );
18 eval q| $json->encode( [ \undef ] ) |;
19 ok( $@ =~ /cannot encode reference to scalar/, $@ );
21 eval q| $json->encode( [ \{} ] ) |;
22 ok( $@ =~ /cannot encode reference to scalar/, $@ );
26 is( $json->encode( [ sub {} ] ), '[null]' );
27 is( $json->encode( [ \-1 ] ), '[null]' );
28 is( $json->encode( [ \undef ] ), '[null]' );
[all …]
H A D109_encode.t19 is($json->encode("¶"), q|"¶"|); # as is
23 is($json->encode("\xb6"), q|"\u00b6"|); # latin1
26 is($json->encode("\xc2\xb6"), q|"\u00c2\u00b6"|); # utf8
27 is($json->encode("¶"), q|"\u00c2\u00b6"|); # utf8
28 is($json->encode('あ'), q|"\u00e3\u0081\u0082"|);
32 is($json->encode("\x80\x65"), q|"\u0080\u0065"|); # utf8
33 is($json->encode("¶"), q|"\u0080\u0065"|); # utf8
36 is($json->encode("\x78\x64"), q|"\u0078\u0064"|); # utf8
37 is($json->encode("¶"), q|"\u0078\u0064"|); # utf8
40 is($json->encode('あ'), (q|"\u00ce\u0043\u0043"|));
[all …]
/openbsd-src/gnu/usr.bin/perl/lib/DBM_Filter/
H A Dencode.pm1 package DBM_Filter::encode ;
11 eval { require Encode; };
13 croak "Encode module not found.\n"
22 my $encoding = Encode::find_encoding($encoding_name) ;
29 $_ = $encoding->encode($_)
45 DBM_Filter::encode - filter for DBM_Filter
53 $db->Filter_Push('encode' => 'iso-8859-16');
60 $db->Filter_Push('encode' => ENCODING);
62 where "ENCODING" must be a valid encoding name that the Encode module
71 The Encode module is not available.
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/CN/
H A DCN.pm1 package Encode::CN;
4 die "Encode::CN not supported on EBCDIC\n";
9 use Encode;
14 # Relocated from Encode.pm
16 use Encode::CN::HZ;
18 # use Encode::CN::2022_CN;
25 Encode::CN - China-based Chinese Encodings
29 use Encode qw/encode decode/;
30 $euc_cn = encode("euc-cn", $utf8); # loads Encode::CN implicitly
53 To find how to use this module in detail, see L<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 …]

12345678910>>...57