#!/usr/bin/perl use strict; use warnings; use TAP::Harness; use TAP::Formatter::HTML; my $fmt = TAP::Formatter::HTML->new; my @tests = glob('*.t'); my $harness = TAP::Harness->new( { formatter => $fmt, merge => 1 } ); $fmt->output_file('output.html'); $harness->runtests(@tests);