# not a real test suite! just an interactive "you give me da
# name, I show ya how it splits up" driver.

use strict;
use Term::ReadLine;
use Text::BibTeX;
use Text::BibTeX::Name;

sub show_name
{
   my $str = shift;
   my $name = new Text::BibTeX::Name $str;
   my $part;

   foreach $part (qw(first last von jr))
   {
      my @tokens = $name->part ($part);
      printf "   %-5s => (%s)\n",
             $part,
             join (", ", map (qq["$_"], @tokens));
   }
}

my $rl = new Term::ReadLine 'BibTeX name splitter';
while (defined ($_ = $rl->readline (">> ")))
{
   show_name ($_);
}