Commit | Line | Data |
18586f54 |
1 | package Encode::Encoding; |
2 | # Base class for classes which implement encodings |
3 | use strict; |
4 | our $VERSION = |
5 | do {my @r=(q$Revision: 0.30 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r}; |
6 | |
7 | sub Define |
8 | { |
9 | my $obj = shift; |
10 | my $canonical = shift; |
11 | $obj = bless { Name => $canonical },$obj unless ref $obj; |
12 | # warn "$canonical => $obj\n"; |
13 | Encode::define_encoding($obj, $canonical, @_); |
14 | } |
15 | |
16 | sub name { shift->{'Name'} } |
17 | |
18 | # Temporary legacy methods |
19 | sub toUnicode { shift->decode(@_) } |
20 | sub fromUnicode { shift->encode(@_) } |
21 | |
22 | sub new_sequence { return $_[0] } |
23 | |
24 | 1; |
25 | __END__ |