# Executes the supplied code returning a hashref:
# ‘warnings’ => arrayref of any warning messages
# ‘warning’ => most recent warning message
# ‘result’ => executed code result
#
# my $run = trap_warn( sub { warn ‘tjoho!’; return 2 } );
#
# print $run->{’warnings’}[0]; # ‘tjoho!’
# print $run->{’warning’}; # ‘tjoho!’
# print $run->{’result’}; # 2
my $DIAG_TRAPPED_WARNS = 0;

sub trap_warn {
my $code = shift;

my @warn_message = ();
local $SIG{__WARN__} = sub {
push @warn_message, shift;
diag “Trapped warn: “.$warn_message[-1] if $DIAG_TRAPPED_WARNS;
};

my $result = # Run code

return { ‘warnings’ => \@warn_message,
‘warning’ => pop @warn_message,
‘result’ => $result };
}