| line |
true |
false |
branch |
|
73
|
0 |
0 |
if (/^(conf|htdocs)/) { } |
|
|
0 |
0 |
elsif (/cgi-bin/) { } |
|
|
0 |
0 |
elsif (/^sample_data/) { } |
|
98
|
0 |
0 |
unless my $in = 'IO::File'->new($f) |
|
99
|
0 |
0 |
unless my $out = 'IO::File'->new("$f.new", '>') |
|
122
|
0 |
0 |
unless my $conf = 'IO::File'->new("$dir/conf/httpd.conf", '>') |
|
128
|
0 |
0 |
unless $conf = 'IO::File'->new("$dir/conf/apache_gbrowse.conf", '>') |
|
134
|
0 |
0 |
unless my $mime = 'IO::File'->new("$dir/conf/mime.types", '>') |
|
139
|
0 |
0 |
unless my $apache = 'GBrowseGuessDirectories'->apache |
|
144
|
0 |
0 |
if (-e "$dir/logs/apache2.pid") { } |
|
151
|
0 |
0 |
if (-e "$dir/logs/error.log") |
|
164
|
0 |
0 |
unless ($dir and -e $dir) |
|
168
|
0 |
0 |
unless my $apache = 'GBrowseGuessDirectories'->apache |
|
194
|
0 |
0 |
unless $self->registration_done |
|
203
|
0 |
0 |
unless ('Module::Build'->y_n('Reuse previous configuration as defaults?', 'y')) |
|
233
|
0 |
0 |
if $self->config_done |
|
257
|
0 |
0 |
if ($conf_dir) |
|
261
|
0 |
0 |
if ($opts{$key} =~ m[(/usr/local/apache2*)]) |
|
264
|
0 |
0 |
unless (-d $apachedir or $dire_warning) |
|
281
|
0 |
0 |
unless (-d $top_level) |
|
282
|
0 |
0 |
if 'Module::Build'->y_n("The directory $top_level does not exist. Use anyway?", 'n') |
|
299
|
0 |
0 |
unless -t STDIN |
|
301
|
0 |
0 |
if ('Module::Build'->y_n('Do you wish to register your installation?', 'y')) { } |
|
317
|
0 |
0 |
unless $response->is_success |
|
321
|
0 |
0 |
if ($@) { } |
|
326
|
0 |
0 |
$result ? : |
|
372
|
0 |
0 |
$perl5lib ? : |
|
373
|
0 |
0 |
$perl5lib ? : |
|
374
|
0 |
0 |
$perl5lib ? : |
|
376
|
0 |
0 |
$perl5lib ? : |
|
489
|
0 |
0 |
unless (chown $uid, $gid, $tmp) |
|
512
|
0 |
0 |
unless (chown $uid, $gid, glob('File::Spec'->catfile($databases, '') . '*')) |
|
531
|
0 |
0 |
if ($self->config_data('installetc') =~ /^[yY]/) |
|
537
|
0 |
0 |
if ($self->apache_version =~ /2\.4/) |
|
542
|
0 |
0 |
if ('Module::Build'->y_n('It is recommended that you restart Apache. Shall I try this for you?', 'y')) |
|
568
|
0 |
0 |
unless -e '/proc/filesystems' |
|
569
|
0 |
0 |
unless my $f = 'IO::File'->new('/proc/filesystems') |
|
570
|
0 |
0 |
unless grep /selinux/i, <$f> |
|
572
|
0 |
0 |
unless my $enabled = 'IO::File'->new('/selinux/enforce') |
|
573
|
0 |
0 |
unless grep /1/, <$enabled> |
|
596
|
0 |
0 |
unless m[^conf/] |
|
601
|
0 |
0 |
if ($copied or not $self->up_to_date('_build/config_data', "blib/$_")) |
|
612
|
0 |
0 |
unless my $skip = ($self->{'skip'} ||= 'IO::File'->new('>>INSTALL.SKIP')) |
|
617
|
0 |
0 |
if (-e $installed and compare($staged, $installed) != 0) |
|
620
|
0 |
0 |
if ($ENV{'AUTOMATED_TESTING'} or not -t STDIN) |
|
630
|
0 |
0 |
if ($line =~ /^[Kk]/) { } |
|
|
0 |
0 |
elsif ($line =~ /^[Rr]/) { } |
|
|
0 |
0 |
elsif ($line =~ /^$/) { } |
|
641
|
0 |
0 |
if ($keep) { } |
|
659
|
0 |
0 |
unless m[^htdocs/] |
|
663
|
0 |
0 |
if ($copied or not $self->up_to_date('_build/config_data', "blib/$base")) |
|
665
|
0 |
0 |
if $copied |
|
670
|
0 |
0 |
if (eval 'require Bio::Graphics::Browser2::Render::Slave::AWS_Balancer;1') |
|
671
|
0 |
0 |
if ('Bio::Graphics::Browser2::Render::Slave::AWS_Balancer'->running_as_instance) |
|
683
|
0 |
0 |
unless m[^cgi-bin/] |
|
687
|
0 |
0 |
if ($copied) |
|
701
|
0 |
0 |
if ($self->config_data('installetc') =~ /^[yY]/) |
|
704
|
0 |
0 |
unless m[^etc/] |
|
710
|
0 |
0 |
if ($copied or not $self->up_to_date('_build/config_data', "blib/$_")) |
|
722
|
0 |
0 |
-e "$includes/perl.conf" ? : |
|
727
|
0 |
0 |
if ($includes and not $self->up_to_date('_build/config_data', $target)) |
|
728
|
0 |
0 |
if ($self->config_data('installconf') =~ /^[yY]/ and not -e "$includes/$file") { } |
|
732
|
0 |
0 |
if (my $f = 'IO::File'->new("blib$includes/$file", '>')) |
|
737
|
0 |
0 |
-e "$includes/$file" ? : |
|
745
|
0 |
0 |
if (!$self->config_data('installetc') =~ /^[yY]/) |
|
754
|
0 |
0 |
unless m[^sample_data/] |
|
766
|
0 |
0 |
if $path =~ /\.\w+$/ and not $path =~ /\.(html|txt|conf)$/ |
|
767
|
0 |
0 |
unless my $in = 'IO::File'->new($path) |
|
768
|
0 |
0 |
unless my $out = 'IO::File'->new("$path.$$", '>') |
|
828
|
0 |
0 |
if (eval 'require DBD::SQLite; 1') { } |
|
|
0 |
0 |
elsif (eval 'require DBD::mysql; 1') { } |
|
862
|
0 |
0 |
$self->apache_version =~ /2\.4/ ? : |
|
926
|
0 |
0 |
$new_auth ? : |
|
927
|
0 |
0 |
$new_auth ? : |
|
932
|
0 |
0 |
unless my $apache = 'GBrowseGuessDirectories'->apache |
|
945
|
0 |
0 |
if $more |
|
952
|
0 |
0 |
if ($self->apache_version =~ /2\.4/) |
|
1015
|
0 |
0 |
if @_ |
|
1016
|
0 |
0 |
if $done |
|
1023
|
0 |
0 |
if @_ |
|
1033
|
0 |
0 |
unless $standard{$lib_base} |
|
1034
|
0 |
0 |
unless $standard{$arch_base} |
|
1035
|
0 |
0 |
@inc ? : |
|
1046
|
0 |
0 |
$id eq 'vendor' ? : |
|
|
0 |
0 |
$id eq 'site' ? : |
|
|
0 |
0 |
$id eq 'core' ? : |
|
1071
|
0 |
0 |
unless ($result) |