[p5sagit/p5-mst-13.2.git] / ext / Encode / lib / Encode / Encoding.pm

package Encode::Encoding;
# Base class for classes which implement encodings
use strict;
our $VERSION = '0.02';

sub Define
{
    my $obj = shift;
    my $canonical = shift;
    $obj = bless { Name => $canonical },$obj unless ref $obj;
    # warn "$canonical => $obj\n";
  Encode::define_encoding($obj, $canonical, @_);
}

sub name { shift->{'Name'} }

# Temporary legacy methods
sub toUnicode    { shift->decode(@_) }
sub fromUnicode  { shift->encode(@_) }

sub new_sequence { return $_[0] }

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