Devel-NYTProf
view release on metacpan or search on metacpan
bin/nytprofhtml view on Meta::CPAN
}
# returns the generic header string. Here only to make the code more readable.
sub get_html_header {
my $title = shift || "Profile Index - NYTProf";
my $opts = shift || {};
$title = _escape_html($title);
my $html = <<EOD;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
EOD
$html = "<html>" if $opts->{not_xhtml};
$html .= <<EOD;
<!--
This file was generated by Devel::NYTProf version $Devel::NYTProf::Core::VERSION
-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="en-us" />
( run in 0.554 second using v1.01-cache-2.11-cpan-49f99fa48dc )