use strict;
use Test::More;
use Devel::StackTrace::AsHTML;
my $html;
sub foo {
my $t = Devel::StackTrace->new;
$html = $t->as_html;
}
sub bar { foo("bar") }
bar(2);
like $html, qr/match.*bar\(2\)/;
like $html, qr!t[\\/]output\.t line 8.*\n.*in main::foo!;
done_testing;