##!/usr/bin/perl -T

package MySpell;

=head1 NAME

=head1 THE EMAN

=head1 THENAMEISLONGANDLONGITSLONG

thename

=cut


use Pod::Spell();
@ISA = qw' Pod::Spell ';


use strict;
use warnings;

sub warp(@) {
    my( %carettable ) = ( map { chr($_) => '^'.chr(64+$_) } 0 ..31 );
    my (@f) = @_;
    for my $f (@f) {
        $f =~ s/([[:cntrl:]])/$carettable{$1}/g;
    }
    print @f, sprintf qq! at %s line %d.\n!, (caller)[ 1, 2 ];
}

sub _treat_words {
    my $p = shift;
    my $i = 0;
    my $word = "";
    while ( $_[0] =~ m<(\S+)>g ) {
        ++$i;
        $word = $1;
        
        warp "i($i)word($word) 1($1)";
        if( $i > 2){
            warp "Bailing out i $i";
            last;
        }
    }
}

package main;

MySpell->new->parse_from_file( __FILE__ );

__END__
perl temp.pl
perl -T temp.pl



D:\>
D:\>perl temp.pl

i(1)word(NAME) 1(NAME) at temp.pl line 40.

i(1)word(THE) 1(THE) at temp.pl line 40.
i(2)word(EMAN) 1(EMAN) at temp.pl line 40.

i(1)word(THENAMEISLONGANDLONGITSLONG) 1(THENAMEISLONGANDLONGITSLONG) at temp.pl line 40.
i(1)word(thename) 1(thename) at temp.pl line 40.

D:\>perl -T temp.pl

i(1)word(=^@9^@) 1(=^@9^@) at temp.pl line 40.
i(2)word(NAME) 1(NAME) at temp.pl line 40.
i(3)word(NAME) 1(NAME) at temp.pl line 40.
Bailing out i 3 at temp.pl line 42.

i(1)word(THE) 1(THE) at temp.pl line 40.
i(2)word(THE) 1(THE) at temp.pl line 40.
i(3)word(THE) 1(THE) at temp.pl line 40.
Bailing out i 3 at temp.pl line 42.

i(1)word(THENAMEISLONGANDLONGITSLONG) 1(THENAMEISLONGANDLONGITSLONG) at temp.pl line 40.
i(2)word(THENAMEISLONGANDLONGITSLONG) 1(THENAMEISLONGANDLONGITSLONG) at temp.pl line 40.
i(3)word(THENAMEISLONGANDLONGITSLONG) 1(THENAMEISLONGANDLONGITSLONG) at temp.pl line 40.
Bailing out i 3 at temp.pl line 42.
i(1)word(thename) 1(thename) at temp.pl line 40.
i(2)word(thename) 1(thename) at temp.pl line 40.
i(3)word(thename) 1(thename) at temp.pl line 40.
Bailing out i 3 at temp.pl line 42.

D:\>