How to get poolboy status for each Riak Vnode

pb_status_anon.txt

PBStatusFun = fun() ->
                      VnodePids = [Pid || {_, Pid} <- riak_core_vnode_manager:all_index_pid(riak_kv_vnode)],
                      Links = [process_info(Pid, [links]) || Pid <- VnodePids],
                      WorkerPoolPids = [WPPid || [{links,[_, WPPid]}] <- Links],
                      WorkerPoolLinks = [process_info(Pid, [links]) || Pid <- WorkerPoolPids],
                      PoolboyPids = [PoolboyPid || [{links,[_, PoolboyPid]}] <- WorkerPoolLinks],
                      [poolboy:status(Pid) || Pid <- PoolboyPids]
              end.

PBStatusFun = fun(Index) ->
                      {_, VnodePid} = riak_core_vnode_manager:get_vnode_pid(Index, riak_kv_vnode),
                      Links = process_info(VnodePid, [links]),
                      [{links,[_, WorkerPoolPid]}] = Links,
                      WorkerPoolLink = process_info(WorkerPoolPid, [links]),
                      [{links,[_, PoolboyPid]}] = WorkerPoolLink,
                      Status = poolboy:status(PoolboyPid),
                      io:format("Pool Pid: ~p Status: ~p~n", [PoolboyPid, Status])
              end.

%% Paste this into console and then run: PBStatusFun().

poolboy_helper.erl

-module(poolboy_helper).

-export([poolboy_status/0]).

poolboy_status() ->
    [{Vnode, vnode_pool_status(VnodePid)} || {Vnode, VnodePid} <- riak_core_vnode_manager:all_index_pid(riak_kv_vnode)].

vnode_pool_status(VnodePid) ->
    PoolboyPid = poolboy_pid(VnodePid),
    poolboy:status(PoolboyPid).

poolboy_pid(VnodePid) ->
    [_, WorkerPoolPid] = process_links(VnodePid),
    [_, PoolboyPid] = process_links(WorkerPoolPid),
    PoolboyPid.

process_links(Pid) ->
    [{links, Links}] = process_info(Pid, [links]),
    Links.