go ahead... be a heretic | |
PerlMonks |
Re^3: Creating (and using) a custom encoding.by davido (Cardinal) |
on May 30, 2013 at 20:56 UTC ( [id://1036142]=note: print w/replies, xml ) | Need Help?? |
I'm guessing that doesn't work for you either. A few nits (even though neither of us have it working yet): Encode doesn't need to be 'used' in package Encode::ROT13 (and eliminating it eliminates the "redefined" warnings). Also, blessing the object into package Encode::ROT13 may as well be written as a constructor in Encode::ROT13, and then called with the traditional Encode::ROT13->new syntax from the calling package (main) .... not that it matters -- it still doesn't work. Also, even if you completely eliminate 'use Encode qw/ define_encoding /; from package main, and eliminate the object construction as well as the call to define_encoding, 'rot13' still shows up in the encodings list. However, placing a "warn" inside of Encode::ROT13::encode shows that the function never gets called. What are we missing? :) There really seems to be a disconnect between the POD and reality. But I'm sure it works for someone (who knows how to do it right). Otherwise, the whole Encode::Encoding module is pretty useless. Dave
In Section
Seekers of Perl Wisdom
|
|