package Encode::MyEncoding;
use base qw(Encode::Encoding);
__PACKAGE__->Define(qw(myCanonical myAlias));
dies saying:
Error: Undefined subroutine &Encode::define_encoding called at ...
Patch follows after sig.
--
Tatsuhiko Miyagawa <miyagawa(_at_)edge(_dot_)co(_dot_)jp>
--- lib/Encode/Encoding.pm~ Sun Apr 28 05:09:05 2002
+++ lib/Encode/Encoding.pm Mon May 6 18:48:59 2002
@@ -3,6 +3,8 @@
use strict;
our $VERSION = do { my @r = (q$Revision: 1.29 $ =~ /\d+/g); sprintf
"%d."."%02d" x $#r, @r };
+require Encode;
+
sub Define
{
my $obj = shift;