| line |
true |
false |
branch |
|
59
|
1 |
2 |
if ($params{'log'}) { } |
|
68
|
0 |
3 |
if ($params{'configfile'}) |
|
71
|
0 |
0 |
unless ($return) |
|
80
|
3 |
0 |
unless ($params{'jobname'}) |
|
90
|
0 |
3 |
if ($params{'progressoutputs'}) { } |
|
92
|
0 |
0 |
unless ($params{'readprogress'}) |
|
93
|
0 |
0 |
unless ($params{'transformprogress'}) |
|
94
|
0 |
0 |
unless ($params{'writeprogress'}) |
|
98
|
3 |
0 |
unless ($params{'readprogress'}) |
|
99
|
3 |
0 |
unless ($params{'transformprogress'}) |
|
100
|
3 |
0 |
unless ($params{'writeprogress'}) |
|
125
|
0 |
0 |
unless ($criteriaref) |
|
130
|
0 |
0 |
if ($$self{'readcriteria'}) |
|
139
|
0 |
0 |
unless ($$self{'readcriteria'}{'batchsize'}) |
|
145
|
0 |
0 |
if ($handle =~ /LDAP/) { } |
|
176
|
0 |
0 |
if ($result->code) { } |
|
195
|
0 |
0 |
unless my $stm = $$self{'readhandle'}->prepare($$self{'readcriteria'}{'select'}) |
|
197
|
0 |
0 |
if ($result or $result eq '0E0') { } |
|
225
|
0 |
0 |
if (not $criteriaref) { } |
|
230
|
0 |
0 |
if ($$self{'readcriteria'} and not $handle =~ /LDAP/) |
|
241
|
0 |
0 |
if ($handle =~ /LDAP/) |
|
245
|
0 |
0 |
if ($$criteriaref{'hashattributes'} and not $$criteriaref{'index'}) |
|
255
|
0 |
0 |
if ($handle =~ /LDAP/) |
|
261
|
0 |
0 |
if ($handle =~ /DBI/) |
|
283
|
0 |
0 |
if ($$line{'Data::Sync::Action'} and $$line{'Data::Sync::Action'} eq 'DELETE') |
|
291
|
0 |
0 |
if (not $result or $result eq '0E0') |
|
304
|
0 |
0 |
if ($$self{'writecriteria'}{'index'}) { } |
|
321
|
0 |
0 |
if (not $result or $result eq '0E0') |
|
332
|
0 |
0 |
if (not $result or $result eq '0E0') |
|
382
|
0 |
0 |
if ($$line{'Data::Sync::Action'} and $$line{'Data::Sync::Action'} eq 'DELETE') |
|
385
|
0 |
0 |
if ($result->code) { } |
|
427
|
0 |
0 |
if ($result->code) |
|
439
|
0 |
0 |
if ($result->code) |
|
474
|
0 |
0 |
if ($handle =~ /LDAP/) |
|
481
|
0 |
0 |
if ($handle =~ /DBI/) |
|
489
|
0 |
0 |
if (scalar @records == 0) |
|
517
|
0 |
0 |
if ($$self{'readcriteria'}{'batchsize'} > 0) { } |
|
522
|
0 |
0 |
unless ($entry) |
|
572
|
0 |
0 |
if ($$self{'readcriteria'}{'batchsize'} > 0) { } |
|
577
|
0 |
0 |
unless ($entry) |
|
626
|
0 |
0 |
unless (ref $_) |
|
655
|
0 |
0 |
unless my $hashdb = 'DBI'->connect('DBI:SQLite:dbname=' . $$self{'name'}, '', '') |
|
660
|
0 |
0 |
if (not $stm) { } |
|
670
|
0 |
0 |
if (not $result or $result eq '0E0') |
|
677
|
0 |
0 |
if (not $result or $result eq '0E0') |
|
695
|
0 |
0 |
if (not $oldhash) { } |
|
|
0 |
0 |
elsif ($oldhash ne $newhash) { } |
|
723
|
0 |
0 |
unless my $hashdb = 'DBI'->connect('DBI:SQLite:dbname=' . $$self{'name'}, '', '') |
|
730
|
0 |
0 |
if (not $result) { } |
|
757
|
0 |
0 |
unless (@_) |
|
758
|
0 |
0 |
if (scalar @_ == 1 and $_[0] =~ /delete/i) { } |
|
789
|
0 |
0 |
unless ($receivedata) |
|
798
|
0 |
0 |
unless ($AoHdata) |
|
809
|
0 |
0 |
if ($$self{'validation'}) |
|
812
|
0 |
0 |
unless ($result) |
|
821
|
0 |
0 |
if ($$self{'writecriteria'}{'hashattributes'}) |
|
827
|
0 |
0 |
if ($$self{'deleteactions'}) |
|
831
|
0 |
0 |
if ($deletes) |
|
833
|
0 |
0 |
if ($$self{'deleteactions'} eq 'delete') { } |
|
862
|
0 |
0 |
if ($$self{'readcriteria'}{'batchsize'} == 0) |
|
913
|
0 |
0 |
if ($$self{'map'}{$attrib}) { } |
|
966
|
2 |
17 |
if ($params{$_} =~ /^concatenate$/) { } |
|
|
9 |
8 |
elsif ($params{$_} =~ /^\w+$/) { } |
|
|
5 |
3 |
elsif (not $params{$_} =~ /CODE/) { } |
|
1000
|
3 |
0 |
unless ($transformations) |
|
1010
|
34 |
2 |
if ($$transformations{$attrib}) { } |
|
1045
|
2 |
56 |
if ($data =~ /ARRAY/ and $transformation eq 'concatenate') { } |
|
|
12 |
44 |
elsif ($data =~ /ARRAY/) { } |
|
|
0 |
44 |
elsif ($data =~ /HASH/) { } |
|
|
44 |
0 |
elsif ($transformation =~ /CODE/) { } |
|
1139
|
0 |
12 |
if ($fh eq 'STDOUT') { } |
|
1180
|
0 |
0 |
unless ($filename) |
|
1188
|
0 |
0 |
unless (open $fh, '>', $filename) |
|
1224
|
0 |
0 |
unless ($filename) |
|
1233
|
0 |
0 |
unless (open $fh, '<', $filename) |
|
1251
|
0 |
0 |
unless ($successfulload) |
|
1253
|
0 |
0 |
if ($$self{'log'}) |
|
1305
|
1 |
1 |
if (not $separator) { } |
|
1373
|
14 |
16 |
unless ($$self{'validation'}{$attrib}) |
|
1380
|
1 |
12 |
if ($errorcounter) |
|
1384
|
1 |
1 |
if ($errorflag > 0) { } |
|
1399
|
22 |
6 |
if (not ref $value) { } |
|
|
6 |
0 |
elsif ($value =~ /ARRAY/) { } |
|
|
0 |
0 |
elsif ($value =~ /HASH/) { } |
|
1416
|
0 |
6 |
if ($errorcounter) |
|
1429
|
0 |
0 |
if ($errorcounter) |
|
1445
|
0 |
0 |
unless ($result) |