--------------------------------------------------------------------------------------------------------------
                                example #1
>>>>> type weird.pl
use strict;
use warnings;
use RTF::Tokenizer;

my $tokenizer = RTF::Tokenizer->new( file => 'test.rtf' );

foreach ( 1 .. 5 )
{
    my ( $token_type, $argument, $parameter ) = $tokenizer->get_token();
    print "     $token_type, $argument, $parameter\n";
}

die;

>>>>> weird.pl
     group, 1,
     control, rtf, 1
     control, ansi,
     control, ansicpg, 1252
     control, deff, 0
Died at D:\test\weird.pl line 13, <GEN0> line 1.

--------------------------------------------------------------------------------------------------------------
                                example #2
>>>>> type weird.pl
use strict;
use warnings;
use RTF::Tokenizer;

my $tokenizer = RTF::Tokenizer->new( file => './test.rtf' );

foreach ( 1 .. 5 )
{
    my ( $token_type, $argument, $parameter ) = $tokenizer->get_token();
    print "     $token_type, $argument, $parameter\n";
}

die;

>>>>> weird.pl
     group, 1,
     control, rtf, 1
     control, ansi,
     control, ansicpg, 1252
     control, deff, 0
Can't call method "isa" without a package or object reference at C:/Perl/site/lib/RTF/Tokenizer.pm line 170.
        ...propagated at D:\test\weird.pl line 13, <GEN0> line 1.

--------------------------------------------------------------------------------------------------------------
                                example #3
>>>>> type weird.pl
use strict;
use warnings;
use RTF::Tokenizer;

my $tokenizer = RTF::Tokenizer->new( file => './test.rtf' );

foreach ( 1 .. 5 )
{
    my ( $token_type, $argument, $parameter ) = $tokenizer->get_token();
    print "     $token_type, $argument, $parameter\n";
}

die "";

>>>>> weird.pl
     group, 1,
     control, rtf, 1
     control, ansi,
     control, ansicpg, 1252
     control, deff, 0
Can't call method "isa" without a package or object reference at C:/Perl/site/lib/RTF/Tokenizer.pm line 170.
        ...propagated at D:\test\weird.pl line 13, <GEN0> line 1.

--------------------------------------------------------------------------------------------------------------
                                example #4
>>>>> type weird.pl
use strict;
use warnings;
use RTF::Tokenizer;

my $tokenizer = RTF::Tokenizer->new( file => './test.rtf' );

foreach ( 1 .. 5 )
{
    my ( $token_type, $argument, $parameter ) = $tokenizer->get_token();
    print "     $token_type, $argument, $parameter\n";
}

die 1;

>>>>> weird.pl
     group, 1,
     control, rtf, 1
     control, ansi,
     control, ansicpg, 1252
     control, deff, 0
1 at D:\test\weird.pl line 13, <GEN0> line 1.

--------------------------------------------------------------------------------------------------------------
                                example #5
>>>>> type weird.pl
use strict;
use warnings;
use RTF::Tokenizer;

my $tokenizer = RTF::Tokenizer->new( file => './test.rtf' );

foreach ( 1 .. 5 )
{
    my ( $token_type, $argument, $parameter ) = $tokenizer->get_token();
    print "     $token_type, $argument, $parameter\n";
}

die "1";

>>>>> weird.pl
     group, 1,
     control, rtf, 1
     control, ansi,
     control, ansicpg, 1252
     control, deff, 0
1 at D:\test\weird.pl line 13, <GEN0> line 1.

--------------------------------------------------------------------------------------------------------------
                                example #6
>>>>> type weird.pl
use strict;
use warnings;
use RTF::Tokenizer;

my $tokenizer = RTF::Tokenizer->new( file => './test.rtf' );

foreach ( 1 .. 5 )
{
    my ( $token_type, $argument, $parameter ) = $tokenizer->get_token();
    print "     $token_type, $argument, $parameter\n";
}

die "one";

>>>>> weird.pl
     group, 1,
     control, rtf, 1
     control, ansi,
     control, ansicpg, 1252
     control, deff, 0
one at D:\test\weird.pl line 13, <GEN0> line 1.

--------------------------------------------------------------------------------------------------------------