Select Code to Download

sub warns (&) {
    my $sub = shift;
...
        $sub->() }
    return wantarray ? @warns : scalar @warns;
}

sub some_module_code {
    my $arg = shift;
...
};
is grep({/\bSome custom warning\b/i} @w), 1;
is grep({/\bUse of uninitialized value\b/i} @w), 0;