Nile
view release on metacpan or search on metacpan
"Memcached::Client" : "0",
"Module::Load" : "0",
"Module::Runtime" : "0",
"MongoDB" : "0",
"MongoDB::MongoClient" : "0",
"MongoDB::OID" : "0",
"Moose" : "0",
"MooseX::Declare" : "0",
"MooseX::MethodAttributes" : "0",
"MooseX::NonMoose" : "0",
"PadWalker" : "0",
"Perl::Tidy" : "0",
"Plack::Builder" : "0",
"Plack::Middleware::Deflater" : "0",
"Redis" : "0",
"Scalar::Util" : "0",
"Search::Elasticsearch" : "0",
"Tie::IxHash" : "0",
"Time::HiRes" : "0",
"Time::Local" : "0",
"URI" : "0",
Memcached::Client: '0'
Module::Load: '0'
Module::Runtime: '0'
MongoDB: '0'
MongoDB::MongoClient: '0'
MongoDB::OID: '0'
Moose: '0'
MooseX::Declare: '0'
MooseX::MethodAttributes: '0'
MooseX::NonMoose: '0'
PadWalker: '0'
Perl::Tidy: '0'
Plack::Builder: '0'
Plack::Middleware::Deflater: '0'
Redis: '0'
Scalar::Util: '0'
Search::Elasticsearch: '0'
Tie::IxHash: '0'
Time::HiRes: '0'
Time::Local: '0'
URI: '0'
Makefile.PL view on Meta::CPAN
DBI::ProfileDumper => 0,
Hash::AsObject => 0,
DateTime => 0,
Tie::IxHash => 0,
Benchmark::Stopwatch => 0,
File::Find::Rule => 0,
Scalar::Util => 0,
HTTP::Headers => 0,
Devel::StackTrace => 0,
Devel::StackTrace::AsHTML => 0,
PadWalker => 0,
Devel::StackTrace::WithLexicals => 0,
Plack::Builder => 0,
Plack::Middleware::Deflater => 0,
Email::Address => 0,
Email::Date::Format => 0,
Email::Simple => 0,
Email::Sender::Simple => 0,
MIME::Entity => 0,
Email::Valid => 0,
Data::Validate::URI => 0,
lib/Nile.pm view on Meta::CPAN
=head1 METHODS
=cut
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# the first thing to do, catch and show errors nicely
BEGIN {
$|=1;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser set_message);
use Devel::StackTrace;
use Devel::StackTrace::AsHTML;
use PadWalker;
use Devel::StackTrace::WithLexicals;
sub handle_errors {
my $msg = shift;
#my $trace = Devel::StackTrace->new(indent => 1, message => $msg, ignore_package => [qw(Carp CGI::Carp)]);
my $trace = Devel::StackTrace::WithLexicals->new(indent => 1, message => $msg, ignore_package => [qw(Carp CGI::Carp)]);
#$trace->frames(reverse $trace->frames);
print $trace->as_html;
}
set_message(\&handle_errors);
( run in 0.719 second using v1.01-cache-2.11-cpan-05444aca049 )