1 package Encode::Encoding;
2 # Base class for classes which implement encodings
10 $obj = bless { Name => $canonical },$obj unless ref $obj;
11 # warn "$canonical => $obj\n";
12 Encode::define_encoding($obj, $canonical, @_);
15 sub name { shift->{'Name'} }
17 # Temporary legacy methods
18 sub toUnicode { shift->decode(@_) }
19 sub fromUnicode { shift->encode(@_) }
21 sub new_sequence { return $_[0] }