Branch Coverage

blib/lib/Dicom/DCMTK/DCMQRSCP/Config.pm
Criterion Covered Total %
branch 45 54 83.3


line true false branch
37 10 37 if ($line =~ /^\s*#/ms or $line =~ /^\s*$/ms)
40 11 26 if ($stay == 0 || $stay == 1 and $line =~ /^\s*(\w+)\s*=\s*"?(\w+)"?\s*$/ms) { }
3 23 elsif ($stay == 1 and $line =~ /^\s*HostTable\s+BEGIN\s*$/ms) { }
3 20 elsif ($stay == 2 and $line =~ /^\s*HostTable\s+END\s*$/ms) { }
6 14 elsif ($stay == 2 and $line =~ /^\s*(\w+)\s*=\s*\(([\d\.\w\s,]+)\)\s*$/ms) { }
1 13 elsif ($stay == 2 and $line =~ /^\s*(\w+)\s*=\s*([\w\s,]+)\s*$/ms) { }
3 10 elsif ($stay == 1 and $line =~ /^\s*AETable\s+BEGIN\s*$/ms) { }
3 7 elsif ($stay == 3 and $line =~ /^\s*AETable\s+END\s*$/ms) { }
4 3 elsif ($stay == 3 and $line =~ m[^\s*(\w+)\s+([/\w]+)\s+(\w+)\s+\(([^)]+)\)\s+(.*)$]ms) { }
1 2 elsif ($stay == 1 and $line =~ /^\s*VendorTable\s+BEGIN\s*$/ms) { }
1 1 elsif ($stay == 4 and $line =~ /^\s*VendorTable\s+END\s*$/ms) { }
1 0 elsif ($stay == 4 and $line =~ /^\s*"([^"]+)"\s*=\s*(\w+)\s*$/ms) { }
159 0 4 unless (keys %{$$self{'ae_table'};})
162 3 1 if ($self->{'comment'})
163 3 0 if (@{$data_ar;})
187 14 6 defined $self->{'global'}{$_} ? :
0 4 unless (map {defined $self->{'global'}{$_} ? $_ : ();} keys %{$$self{'global'};})
192 3 1 if ($self->{'comment'})
193 0 3 if (@{$data_ar;})
199 6 14 unless (defined $self->{'global'}{$key})
203 2 12 unless ($value =~ /^\d+$/ms)
214 0 4 unless (keys %{$$self{'host_table'};})
217 3 1 if ($self->{'comment'})
218 3 0 if (@{$data_ar;})
239 3 1 unless (keys %{$$self{'vendor_table'};})
242 1 0 if ($self->{'comment'})
243 1 0 if (@{$data_ar;})