#!perl
use strict;
use utf8;
use Test::More qw(no_plan);
use Encode;
BEGIN
{
use_ok("Text::MeCab");
}
my $node;
my $data = encode(Text::MeCab::ENCODING, "太郎は次郎が持っている本を花子に渡した。");
{
my $mecab = Text::MeCab->new;
$node = $mecab->parse($data);
$mecab = undef;
}
ok($node); # yes, node exists, but DO NOT use node->surface.