| line |
true |
false |
branch |
|
53
|
0 |
2 |
if ($opt{'cfg_file'})
|
|
54
|
0 |
0 |
unless open my $fh, '<', $opt{'cfg_file'}
|
|
58
|
0 |
0 |
defined $opt{'name'} ? :
|
|
59
|
0 |
0 |
defined $opt{'password'} ? :
|
|
60
|
0 |
0 |
defined $opt{'uri'} ? :
|
|
61
|
0 |
0 |
defined $opt{'open_captcha'} ? :
|
|
62
|
0 |
0 |
defined $opt{'prompt_captcha'} ? :
|
|
64
|
0 |
0 |
if (exists $$yml{$_})
|
|
65
|
0 |
0 |
defined $opt{$_} ? :
|
|
70
|
0 |
1 |
unless exists $opt{'uri'} and exists $opt{'name'} and exists $opt{'password'} and exists $opt{'api_key'}
|
|
77
|
0 |
1 |
exists $ENV{'GLC_DEBUG'} ? :
|
|
145
|
0 |
1 |
if ($$self{'destroy_hooks'})
|
|
149
|
1 |
0 |
if (not $self->session_persistent) { }
|
|
|
0 |
0 |
elsif (defined $self->cfg_file) { }
|
|
159
|
0 |
0 |
if ($self->debug)
|
|
162
|
0 |
0 |
unless defined $self->cfg_file
|
|
183
|
0 |
0 |
unless print {$tfh;} $yml
|
|
184
|
0 |
0 |
unless close $tfh
|
|
187
|
0 |
0 |
unless my(undef, undef, $mode) = stat $target
|
|
188
|
0 |
0 |
unless chmod $mode, $tempfile
|
|
191
|
0 |
0 |
unless rename $tempfile, $target
|
|
194
|
0 |
0 |
unless (eval {
do {
my $target = $self->cfg_file;
$target = abs_path($target);
my($tfh, $tempfile) = tempfile("$target.XXXXXXX");
die $! unless print {$tfh;} $yml;
die $! unless close $tfh;
die $! unless my(undef, undef, $mode) = stat $target;
die $! unless chmod $mode, $tempfile;
die $! unless rename $tempfile, $target;
1
}
})
|
|
206
|
0 |
0 |
if (not $self->session_id or $now - $self->session_start > $self->session_timeout) { }
|
|
|
0 |
0 |
elsif ($self->debug) { }
|
|
207
|
0 |
0 |
if ($self->debug)
|
|
212
|
0 |
0 |
if ($self->debug)
|
|
225
|
0 |
0 |
ref $files eq 'ARRAY' ? :
|
|
233
|
0 |
0 |
if $dist
|
|
238
|
0 |
0 |
if $@
|
|
239
|
0 |
0 |
if $dist_file
|
|
244
|
0 |
0 |
if $file and -e $file
|
|
247
|
0 |
0 |
unless $optional
|