use TAP::Formatter::HTML; use TAP::Harness; use accessors; use strict; my $fmt = TAP::Formatter::HTML->new; my @tests = glob('*.t'); my $my_css; $fmt->css_uris([])->inline_css( $my_css ) ->js_uris(['http://mysite.com/jquery.js', 'http://mysite.com/custom.js']) ->inline_js( '$(div.summary).hide()' ); my $harness = TAP::Harness->new( { formatter => $fmt, merge => 1 } ); $fmt->output_file('output.html'); $harness->runtests('simple.t');