view release on metacpan or  search on metacpan

t/lib/Util.pm  view on Meta::CPAN

}

=func test_all_user_agents

    test_all_user_agents { ... };

Run the same subtest against all user agents returned by L</user_agents>.

=cut

sub test_all_user_agents(&) {
    my $code = shift;

    for my $name (user_agents) {
        subtest $name => sub {
            test_user_agent($name, $code);
        };
    }
}