#!/usr/bin/env perl
# vim: sts=3 ts=3 sw=3 et ai :
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;
use Data::Tubes qw< pipeline >;

my $input = <<'END';
John:Doe:44:married
Jean:Doe
END

pipeline(
   'Source::open_file',
   'Reader::by_line',
   [
      'Parser::by_format' => 'first:last:rest',
      allow_missing => 1,
   ],
   sub {
      $_[0]{rendered} = Dumper($_[0]{structured});
      return $_[0];
   },
   'Writer::to_files',
   {tap => 'sink'},
)->(\$input);