| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  | package App::FonBot::Daemon; | 
| 2 |  |  |  |  |  |  |  | 
| 3 |  |  |  |  |  |  | our $VERSION = '0.001'; | 
| 4 |  |  |  |  |  |  |  | 
| 5 | 1 |  |  | 1 |  | 13098 | use 5.014000; | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 25 |  | 
| 6 | 1 |  |  | 1 |  | 3 | use strict; | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 29 |  | 
| 7 | 1 |  |  | 1 |  | 4 | use warnings; | 
|  | 1 |  |  |  |  | 4 |  | 
|  | 1 |  |  |  |  | 20 |  | 
| 8 |  |  |  |  |  |  |  | 
| 9 | 1 |  |  | 1 |  | 814 | use Log::Log4perl qw//; | 
|  | 1 |  |  |  |  | 33783 |  | 
|  | 1 |  |  |  |  | 19 |  | 
| 10 | 1 |  |  | 1 |  | 578 | use POE; | 
|  | 1 |  |  |  |  | 29542 |  | 
|  | 1 |  |  |  |  | 5 |  | 
| 11 |  |  |  |  |  |  |  | 
| 12 | 1 |  |  | 1 |  | 54988 | use App::FonBot::Plugin::Config; | 
|  | 1 |  |  |  |  | 3 |  | 
|  | 1 |  |  |  |  | 40 |  | 
| 13 | 1 |  |  | 1 |  | 384 | use App::FonBot::Plugin::Common; | 
|  | 0 |  |  |  |  |  |  | 
|  | 0 |  |  |  |  |  |  | 
| 14 |  |  |  |  |  |  | use App::FonBot::Plugin::OFTC; | 
| 15 |  |  |  |  |  |  | use App::FonBot::Plugin::BitlBee; | 
| 16 |  |  |  |  |  |  | use App::FonBot::Plugin::HTTPD; | 
| 17 |  |  |  |  |  |  | use App::FonBot::Plugin::Email; | 
| 18 |  |  |  |  |  |  |  | 
| 19 |  |  |  |  |  |  | use sigtrap qw/die normal-signals/; | 
| 20 |  |  |  |  |  |  |  | 
| 21 |  |  |  |  |  |  | use constant PLUGINS => map { "App::FonBot::Plugin::$_" } qw/Config Common OFTC BitlBee HTTPD Email/; | 
| 22 |  |  |  |  |  |  |  | 
| 23 |  |  |  |  |  |  | ################################################## | 
| 24 |  |  |  |  |  |  |  | 
| 25 |  |  |  |  |  |  | sub run{ | 
| 26 |  |  |  |  |  |  | Log::Log4perl->init('/etc/fonbotd/log4perl.conf'); | 
| 27 |  |  |  |  |  |  | chdir '/var/lib/fonbot'; | 
| 28 |  |  |  |  |  |  | $_->init for PLUGINS; | 
| 29 |  |  |  |  |  |  | POE::Kernel->run; | 
| 30 |  |  |  |  |  |  | } | 
| 31 |  |  |  |  |  |  |  | 
| 32 |  |  |  |  |  |  | sub finish{ | 
| 33 |  |  |  |  |  |  | $_->fini for reverse PLUGINS | 
| 34 |  |  |  |  |  |  | } | 
| 35 |  |  |  |  |  |  |  | 
| 36 |  |  |  |  |  |  | 1; | 
| 37 |  |  |  |  |  |  |  | 
| 38 |  |  |  |  |  |  | __END__ |