The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use lib qw(t/lib);
use MyModel;
use Test::Most;
use DateTime;

my $model   = MyModel->testing;
my $twitter = $model->index('twitter')->type('user');
ok(
    $twitter->refresh->put(
        {
            nickname => 'mo',
            name     => 'Moritz Onken',
        }
    ),
    'Put mo ok'
);

ok(
    my $user
        = $twitter->query_type('query_then_fetch')->fields( ['name'] )->first,
    'get name field'
);

is( $user->name,     'Moritz Onken', 'got field ok' );
is( $user->nickname, 'mo',           'id field ok' );

done_testing;