Branch Coverage

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


line true false branch
34 10 37 if ($line =~ /^\s*#/ms or $line =~ /^\s*$/ms)
37 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) { }
156 0 4 unless (keys %{$$self{"ae_table"};})
159 3 1 if ($self->{'comment'})
160 3 0 if (@{$data_ar;})
184 14 6 defined $self->{'global'}{$_} ? :
0 4 unless (map {defined $self->{'global'}{$_} ? $_ : ();} keys %{$$self{"global"};})
189 3 1 if ($self->{'comment'})
190 0 3 if (@{$data_ar;})
196 6 14 unless (defined $self->{'global'}{$key})
200 2 12 unless ($value =~ /^\d+$/ms)
211 0 4 unless (keys %{$$self{"host_table"};})
214 3 1 if ($self->{'comment'})
215 3 0 if (@{$data_ar;})
236 3 1 unless (keys %{$$self{"vendor_table"};})
239 1 0 if ($self->{'comment'})
240 1 0 if (@{$data_ar;})