| 5 |
$VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
$VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 6 |
use base qw(Encode::Encoding); |
use base qw(Encode::Encoding); |
| 7 |
require MIME::Base64; |
require MIME::Base64; |
| 8 |
__PACKAGE__->Define (qw/utf-7 utf7 unicode-2-0-utf-7 unicode-2-0-utf7 x-unicode-2-0-utf7 unicode-1-1-utf-7/); |
__PACKAGE__->Define (qw/utf-7 utf7 unicode-2-0-utf-7 unicode-2-0-utf7 x-unicode-2-0-utf7 cp65000 unicode-1-1-utf-7 csunicode11utf7/); |
| 9 |
## BUG: Unicode-1-1-UTF-7 is actually not suitable. (We need Unicode 1.1 support.) |
## BUG: Unicode-1-1-UTF-7 is actually not suitable. (We need Unicode 1.1 support.) |
| 10 |
|
|
| 11 |
$OPTION{encode_o_set} = 1; |
$OPTION{encode_o_set} = 1; |