#!/usr/bin/perl 

use strict;
use warnings;
use Test::More tests => 1;
use List::EvenMoreUtils qw(do_sublist);

my @list = (
	{
		k	=> 7,
		v	=> 'd',
	},
	{
		k	=> 8,
		v	=> 'm',
	},
	{
		k	=> 7,
		v	=> 'o',
	},
	{
		k	=> 8,
		v	=> 'e',
	},
	{
		k	=> 8,
		v	=> 'a',
	},
	{
		k	=> 7,
		v	=> 'g',
	},
	{
		k	=> 8,
		v	=> 't',
	},
);

my @w = do_sublist( sub { $_->{k} }, sub { join('', map { $_->{v} } @_) }, @list);

is("@w", 'dog meat', 'do_sublists works');