or download this
use warnings;
use strict;
...
is($activity->()->($person->()), 'sally likes to play', 'sally,play');
is($activity->()->($person->()), 'henry likes to eat', 'henry,eat');
is($activity->()->($person->()), 'tom likes to nap', 'tom,nap');