Select Code to Download

our @CARP_NOT = ('Log::Dispatch::Output','Log::Dispatch');

use Log::Dispatch::Perl;

...
        Log::Dispatch::_log_to('Log::Dispatch=HASH(0xfc578)','level','
+alert','name','default','message','This is an alert') called at /usr/
+local/lib/perl5/site_perl/5.8.3/Log/Dispatch.pm line 74
        Log::Dispatch::log('Log::Dispatch=HASH(0xfc578)','level','aler
+t','message','This is an alert') called at /usr/local/lib/perl5/site_
+perl/5.8.3/Log/Dispatch.pm line 22
        Log::Dispatch::__ANON__('Log::Dispatch=HASH(0xfc578)','This is
+ an alert') called at line 7