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\)/;
done_testing;
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\)/;
done_testing;