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   11 use strict;
  1         2  
  1         37  
4 1     1   4 use warnings;
  1         1  
  1         134  
5             our $VERSION = (qw$Id: SPF.pm 2003 2025-01-21 12:06:06Z willem $)[2];
6              
7 1     1   6 use base qw(Net::DNS::RR::TXT);
  1         2  
  1         545  
8              
9              
10             =head1 NAME
11              
12             Net::DNS::RR::SPF - DNS SPF resource record
13              
14             =cut
15              
16 1     1   9 use integer;
  1         1  
  1         6  
17              
18              
19             sub spfdata {
20 4     4 1 9 my ( $self, @argument ) = @_;
21 4         16 my @spf = shift->char_str_list(@argument);
22 4 100       71 return wantarray ? @spf : join '', @spf;
23             }
24              
25 2     2 1 713 sub txtdata { return &spfdata; }
26              
27              
28             1;
29             __END__