package t::Utils::IgnoreWarn;
use strict;
use warnings;
use t::Utils::IgnoreWarnGuard;
use parent qw(Exporter);
our @EXPORT = qw( ignore_warn );
sub import {
my $class = shift;
if ($ENV{IGNORE_WARN}) {
# parent process has set warn regex
ignore_warn($ENV{IGNORE_WARN});
}
__PACKAGE__->export_to_level(1, @_);
}
sub ignore_warn {
my $regex = shift;
return t::Utils::IgnoreWarnGuard->new($regex);
}
1;