| src_bin/iqbi-damiq | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 42 | 45.2 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 1 | 3 | unless &GetOptions("socket|s=s", \$socket, "require-xs|x", \$require_xs, "window|w=i", \$window, "max-keys=i", \$max_keys, "max-key-length=i", \$max_key_length, "idle-timeout=i", \$idle_timeout, "sweep-interval=i", \$sweep_interval, "max-clients=i", \$max_clients, "mode|m=s", \$mode, "daemonize|d", \$daemonize, "pidfile|p=s", \$pidfile, "help|h", sub { pod2usage("-exitval", 0, "-verbose", 1); } , "version|v", sub { print 'iqbi-damiq (Algorithm::EventsPerSecond::Sukkal) ' . "$Algorithm::EventsPerSecond::Sukkal::VERSION\n"; exit 0; } ) |
| 37 | 1 | 2 | unless defined $socket |
| 40 | 1 | 1 | if $require_xs and "Algorithm::EventsPerSecond"->backend ne "XS" |
| 43 | 1 | 0 | defined $window ? : |
| 0 | 1 | defined $max_keys ? : | |
| 0 | 1 | defined $max_key_length ? : | |
| 0 | 1 | defined $idle_timeout ? : | |
| 0 | 1 | defined $sweep_interval ? : | |
| 0 | 1 | defined $max_clients ? : | |
| 0 | 1 | defined $mode ? : | |
| 54 | 0 | 1 | if ($daemonize) |
| 57 | 0 | 0 | unless defined(my $pid = fork) |
| 58 | 0 | 0 | if $pid |
| 59 | 0 | 0 | unless POSIX::setsid() != -1 |
| 60 | 0 | 0 | unless defined($pid = fork) |
| 61 | 0 | 0 | if $pid |
| 70 | 1 | 0 | if (defined $pidfile) |
| 71 | 0 | 1 | unless open my $fh, ">", $pidfile |
| 79 | 1 | 0 | if defined $pidfile and defined $pidfile_owner and $$ == $pidfile_owner |
| 87 | 1 | 0 | unless $daemonize |
| 92 | 1 | 0 | unless $daemonize |