|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
40
 | 
 14  | 
 0  | 
 unless $@  | 
 
| 
44
 | 
 14  | 
 0  | 
 unless $@  | 
 
| 
53
 | 
 2  | 
 0  | 
 unless (&blessed($self))  | 
 
| 
58
 | 
 0  | 
 2  | 
 unless $self->{'opts'}  | 
 
| 
76
 | 
 0  | 
 6  | 
 unless defined $args->{'port'}  | 
 
| 
79
 | 
 6  | 
 0  | 
 unless defined $args->{'apps'}  | 
 
| 
80
 | 
 6  | 
 0  | 
 unless defined $args->{'opts'}  | 
 
| 
83
 | 
 0  | 
 6  | 
 unless (ref $args->{'apps'} eq 'HASH')  | 
 
| 
86
 | 
 0  | 
 6  | 
 unless (ref $args->{'opts'} eq 'HASH')  | 
 
| 
119
 | 
 0  | 
 0  | 
 if ($r and 'HASH' eq $r)  | 
 
| 
124
 | 
 0  | 
 0  | 
 if ($A->{'package'}) { }  | 
 
| 
133
 | 
 0  | 
 0  | 
 if (not $r and $controler->package_ctor($A)) { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif ($r eq 'CODE') { }  | 
 
| 
139
 | 
 0  | 
 0  | 
 unless ($ok)  | 
 
| 
191
 | 
 0  | 
 0  | 
 unless $self  | 
 
| 
210
 | 
 0  | 
 0  | 
 unless $tcp  | 
 
| 
212
 | 
 0  | 
 0  | 
 unless $wheel  | 
 
| 
282
 | 
 0  | 
 0  | 
 if (defined $SID and $controler->exists($SID))  | 
 
| 
341
 | 
 0  | 
 0  | 
 if ($self->{'shutdown'})  | 
 
| 
354
 | 
 0  | 
 0  | 
 if ($uri ne '/xul')  | 
 
| 
360
 | 
 0  | 
 0  | 
 unless (ref $ret)  | 
 
| 
371
 | 
 0  | 
 0  | 
 unless ($app and $event)  | 
 
| 
381
 | 
 0  | 
 0  | 
 if ($event eq 'boot') { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif (not $controler->exists($SID)) { }  | 
 
| 
383
 | 
 0  | 
 0  | 
 if ($fail)  | 
 
| 
394
 | 
 0  | 
 0  | 
 if ($event eq 'connect') { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif ($event eq 'disconnect') { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif ($event eq 'close') { }  | 
 
| 
411
 | 
 0  | 
 0  | 
 unless (defined $rc)  | 
 
| 
428
 | 
 0  | 
 0  | 
 unless ($uri =~ m[^/xul/file(/(.*))?])  | 
 
| 
435
 | 
 0  | 
 0  | 
 unless (ref $ret)  | 
 
| 
455
 | 
 0  | 
 0  | 
 if ($self->{'shutdown'})  | 
 
| 
467
 | 
 0  | 
 0  | 
 unless ($method eq 'GET' or $method eq 'HEAD')  | 
 
| 
478
 | 
 0  | 
 0  | 
 if (-d $file) { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif (-f "$file.build") { }  | 
 
| 
490
 | 
 0  | 
 0  | 
 if ($ret)  | 
 
| 
507
 | 
 0  | 
 0  | 
 unless ($path =~ s[^/][$self->{'static_root'}/])  | 
 
| 
523
 | 
 0  | 
 1  | 
 if ($uri)  | 
 
| 
531
 | 
 0  | 
 1  | 
 unless -f $fullfile  | 
 
| 
538
 | 
 0  | 
 1  | 
 unless ($in)  | 
 
| 
543
 | 
 0  | 
 1  | 
 if ($size > 1048576)  | 
 
| 
555
 | 
 1  | 
 0  | 
 if ($lastmod and not $ct =~ m[^application/vnd\.mozilla\.xul\+xml$])  | 
 
| 
563
 | 
 0  | 
 1  | 
 if ($req->method eq 'HEAD')  | 
 
| 
574
 | 
 0  | 
 1  | 
 if ($since)  | 
 
| 
578
 | 
 0  | 
 0  | 
 if ($lastmod and $since and $since >= $lastmod)  | 
 
| 
590
 | 
 0  | 
 1  | 
 if ($uri eq '/' || $uri =~ m[^/index.html?] and $c =~ /\[APP-LIST\]/)  | 
 
| 
621
 | 
 0  | 
 0  | 
 $lang eq 'fr' ? :  | 
 
| 
624
 | 
 0  | 
 0  | 
 if $app eq 'IGDAIP' and 1 != $count  | 
 
| 
639
 | 
 0  | 
 0  | 
 unless $self->{'request'}  | 
 
| 
664
 | 
 1  | 
 0  | 
 unless ($cage and $cage > $bage)  | 
 
| 
679
 | 
 2  | 
 6  | 
 unless ref $cfile  | 
 
| 
683
 | 
 0  | 
 8  | 
 if ($self->{'loop_check'}{$bfile})  | 
 
| 
688
 | 
 0  | 
 8  | 
 unless my $in = 'IO::File'->new($bfile)  | 
 
| 
690
 | 
 6  | 
 10  | 
 if ($line =~ /^\s*\@include "(.+)"\s*$/) { }  | 
 
| 
707
 | 
 0  | 
 3  | 
 if $ct eq 'text/html'  | 
 
| 
722
 | 
 0  | 
 0  | 
 if ($host)  | 
 
| 
726
 | 
 0  | 
 0  | 
 if defined $uri->port and 0 == $uri->port  | 
 
| 
729
 | 
 0  | 
 0  | 
 if ($referer and $referer =~ /https/)  | 
 
| 
749
 | 
 0  | 
 0  | 
 unless $ENV{'AUTOMATED_TESTING'}  | 
 
| 
750
 | 
 0  | 
 0  | 
 if $ct eq 'text/plain' and $code != 404  | 
 
| 
753
 | 
 0  | 
 0  | 
 if ($self->{'response'}) { }  | 
 
| 
756
 | 
 0  | 
 0  | 
 if ($ct eq 'text/html')  | 
 
| 
855
 | 
 0  | 
 0  | 
 if ($op eq 'read' and $errnum == 0 || ($errnum = 104)) { }  | 
 
| 
857
 | 
 0  | 
 0  | 
 if ($self->{'controler'} and $request)  | 
 
| 
971
 | 
 0  | 
 0  | 
 $conn ? :  | 
 
| 
972
 | 
 0  | 
 0  | 
 if ($log[-1] eq '127.0.0.1' and $req->header('X-Forwarded-For'))  | 
 
| 
982
 | 
 0  | 
 0  | 
 if $query and $req->method eq 'GET'  |