| line |
true |
false |
branch |
|
192
|
2 |
2 |
if $ENV{'NET_SHAREPOINT_VERBOSE'} or $ENV{'NET_SHAREPOINT_DEBUG'} |
|
206
|
1 |
9 |
if $ENV{'NET_SHAREPOINT_DEBUG'} |
|
220
|
1 |
0 |
if $ENV{'NET_SHAREPOINT_DEBUG'} |
|
234
|
0 |
1 |
unless shift() |
|
251
|
1 |
1 |
unless open my $mail_fh, '<', $file |
|
275
|
1 |
0 |
unless -d $dir |
|
276
|
0 |
1 |
$binary ? : |
|
|
0 |
1 |
unless open my $fh, $binary ? '>:raw' : '>:encoding(utf8)', $file |
|
277
|
0 |
1 |
if $binary |
|
297
|
0 |
5 |
unless open my $conf_fh, '<', $config_file |
|
299
|
2 |
38 |
if /^\#/ |
|
300
|
2 |
36 |
unless /\S/ |
|
304
|
2 |
34 |
unless ($value) |
|
311
|
0 |
6 |
if $extra_value =~ /^\#/ |
|
312
|
0 |
6 |
unless $extra_value =~ /\S/ |
|
339
|
4 |
4 |
if ($opts->{'config_file'}) { } |
|
343
|
0 |
4 |
if -f $DEFAULT_SHAREPOINT_CONFIG_FILE |
|
348
|
4 |
5 |
if $key eq 'config_file' |
|
349
|
0 |
5 |
unless defined $opts->{$key} |
|
399
|
0 |
2 |
unless $opts |
|
401
|
3 |
3 |
if (not $opts->{$id}) { } |
|
|
0 |
3 |
elsif (not $opts->{$id} =~ /^\w{8}-\w{4}-\w{4}-\w{4}-\w{12}$/) { } |
|
410
|
1 |
1 |
unless $opts->{'sharepoint_client_secret'} and $opts->{'sharepoint_client_secret'} =~ /^(\S){43}\=/ |
|
413
|
1 |
1 |
unless $opts->{'sharepoint_access_url'} and $opts->{'sharepoint_access_url'} =~ m[^https://] |
|
415
|
1 |
1 |
unless $opts->{'sharepoint_host'} |
|
418
|
1 |
1 |
unless $opts->{'sharepoint_site'} and $opts->{'sharepoint_site'} =~ m[^sites/.+] |
|
421
|
0 |
0 |
unless $opts->{$extra_opt} |
|
445
|
1 |
2 |
if @{$self->{'log'};} > $self->{'config'}{'max_log_size'} |
|
492
|
0 |
0 |
unless ($token_response->is_success) |
|
522
|
0 |
0 |
if (-f $token_file) { } |
|
526
|
0 |
0 |
if time > $self->{'token'}{'ts'} - 1200 and not $self->update_token |
|
530
|
0 |
0 |
unless $self->update_token |
|
558
|
1 |
38 |
unless $opts and $opts->{'pattern'} || $opts->{'type'} |
|
560
|
0 |
38 |
if $folder eq '/' |
|
564
|
38 |
0 |
unless ($pattern) |
|
565
|
1 |
37 |
unless ($PATTERNS{$opts->{'type'}}) |
|
569
|
21 |
16 |
if (ref $PATTERNS{$opts->{'type'}}) { } |
|
570
|
1 |
20 |
unless ($opts->{'subtype'} and $PATTERNS{$opts->{'type'}}{$opts->{'subtype'}}) |
|
582
|
0 |
36 |
if $self->{'config'}{'base_subfolder'} |
|
624
|
0 |
0 |
$opts->{'action'} eq 'download' || $opts->{'action'} eq 'list' ? : |
|
627
|
0 |
0 |
unless ($self->init_token) |
|
634
|
0 |
0 |
if ($response->is_success) |
|
695
|
0 |
0 |
ref $item ? : |
|
702
|
0 |
0 |
ref $item ? : |
|
707
|
0 |
0 |
$chunk_n ? : |
|
724
|
0 |
0 |
unless $r |
|
753
|
0 |
0 |
if (not $object and $opts->{'type'} ne 'file') |
|
758
|
0 |
0 |
if ($opts->{'type'} eq 'file') |
|
759
|
0 |
0 |
unless (-f $item) |
|
770
|
0 |
0 |
ref $item ? : |
|
|
0 |
0 |
if (length(ref $item ? $$item : $item) > $self->{'config'}{'chunk_size'}) { } |
|
782
|
0 |
0 |
unless $r |
|
822
|
0 |
0 |
if $target |
|
836
|
0 |
0 |
unless defined $response |
|
837
|
0 |
0 |
unless $opts->{'save_file'} |
|
838
|
0 |
0 |
if -d $opts->{'save_file'} |
|
876
|
0 |
0 |
unless defined $list_response |