Alzabo
view release on metacpan or search on metacpan
lib/Alzabo/Exceptions.pm view on Meta::CPAN
my $self = shift;
my $msg = $self->full_message;
require HTML::Entities;
$msg = HTML::Entities::encode_entities($msg);
$msg =~ s/\n/<br>/;
my $html = <<"EOF";
<html><body>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b>System error</b></font></p>
<table border="0" cellspacing="0" cellpadding="1">
<tr>
<td nowrap align="left" valign="top"><b>error:</b> </td>
<td align="left" valign="top" nowrap>$msg</td>
</tr>
<tr>
<td align="left" valign="top" nowrap><b>code stack:</b> </td>
<td align="left" valign="top" nowrap>
EOF
( run in 2.137 seconds using v1.01-cache-2.11-cpan-97f6503c9c8 )