Text::LTSV

勢いで Text::LTSV という perl モジュールを書いたけど、ただ tab を split してコロンで split するだけなのでわざわざこんな駄モジュールを使うまでもない、という･･･。

use Text::LTSV;
my $hash = Text::LTSV->parse_line("hoge:foo\tbar:baz\n");
is $hash->{hoge}, 'foo';
is $hash->{bar},  'baz';

my $data = Text::LTSV->parse_file('./t/test.ltsv'); # or parse_file_utf8
is $data->[0]->{hoge}, 'foo';
is $data->[0]->{bar}, 'baz';

my $ltsv = Text::LTSV->new(
    hoge => 'foo',
    bar  => 'baz',
);
is $ltsv->to_s, "hoge:foo\tbar:baz";

反省はしていない。