File Coverage

blib/lib/Net/DNS/RR/SPF.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Net::DNS::RR::SPF;
2              
3 1     1   7 use strict;
  1         3  
  1         31  
4 1     1   4 use warnings;
  1         2  
  1         46  
5             our $VERSION = (qw$Id: SPF.pm 1896 2023-01-30 12:59:25Z willem $)[2];
6              
7 1     1   5 use base qw(Net::DNS::RR::TXT);
  1         2  
  1         550  
8              
9              
10             =head1 NAME
11              
12             Net::DNS::RR::SPF - DNS SPF resource record
13              
14             =cut
15              
16 1     1   8 use integer;
  1         2  
  1         4  
17              
18              
19             sub spfdata {
20 4     4 1 8 my ( $self, @argument ) = @_;
21 4         13 my @spf = shift->char_str_list(@argument);
22 4 100       70 return wantarray ? @spf : join '', @spf;
23             }
24              
25 2     2 1 566 sub txtdata { return &spfdata; }
26              
27              
28             1;
29             __END__