view release on metacpan or  search on metacpan

t/402-error-logged.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;

sub warnextract(&) { ## no critic
    my $code = shift;

    my @warn;
    local $SIG{__WARN__} = sub { push @warn, shift };
    $code->();

    note "Got warning: ".$_ for @warn;
    return @warn;
};