arrows all the way

# uncomment for mock test
# sub pool::init { [ sub { warn 'hello' } ] };
# $pool = bless {}, 'pool';

$pool->init->[0]->();
[download]

References quick reference