The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::Base;

use Encode;
use Lingua::JA::Hepburn::Passport;

sub hepburn {
    Lingua::JA::Hepburn::Passport->new( strict => 1 )->romanize( decode_utf8($_[0]) );
}

filters {
    input => [ 'chomp' ],
    expected => [ 'chomp' ],
};

plan tests => 1 * blocks;

run {
    my $block = shift;
    eval { hepburn($block->input) };
    ok $@, encode_utf8($@);
}

__END__

===
--- input
ほっtち

===
--- input
Foo Bar

===
--- input
ぁぃぅ