| line |
true |
false |
branch |
|
40
|
0 |
0 |
if ($prms{'File'}) { } |
|
42
|
0 |
0 |
unless open FILE, "<$prms{'File'}" |
|
46
|
0 |
0 |
if /^---/ |
|
67
|
0 |
1 |
unless $prms{'Protocol'} eq 'dns' |
|
72
|
0 |
1 |
unless my $rslv = 'Net::DNS::Resolver'->new |
|
75
|
0 |
1 |
unless my $resp = $rslv->query($host, 'TXT') |
|
79
|
0 |
1 |
unless $ans->type eq 'TXT' |
|
84
|
0 |
1 |
unless $strn |
|
86
|
0 |
1 |
unless my $self = &parse_string($strn) |
|
97
|
0 |
0 |
unless my $self = &parse_string($prms{'String'}) |
|
109
|
0 |
0 |
if $self->granularity |
|
112
|
0 |
0 |
if $self->type |
|
115
|
0 |
0 |
if $self->note |
|
118
|
0 |
0 |
if $self->testing |
|
123
|
0 |
0 |
if length $text |
|
135
|
0 |
7 |
unless $self->data |
|
154
|
0 |
7 |
if $@ |
|
158
|
0 |
7 |
unless $cork |
|
179
|
0 |
6 |
if $@ |
|
189
|
0 |
6 |
if @_ |
|
198
|
0 |
0 |
if @_ |
|
207
|
0 |
0 |
unless $self->data |
|
216
|
0 |
0 |
if @_ |
|
232
|
0 |
3 |
if /^g=(\S+)$/ |
|
234
|
1 |
2 |
if /^k=(rsa)$/i |
|
236
|
1 |
2 |
if /^n=(.*)$/ |
|
238
|
1 |
2 |
if m[^p=([A-Za-z0-9\+/\=]+)$] |
|
240
|
0 |
3 |
if /^t=y$/i |