File Coverage

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


line stmt bran path cond sub pod time code
1               package Net::DNS::RR::SPF;
2                
3 1       1   8 use strict;
  1           2  
  1           44  
4 1       1   6 use warnings;
  1           3  
  1           102  
5               our $VERSION = (qw$Id: SPF.pm 2003 2025-01-21 12:06:06Z willem $)[2];
6                
7 1       1   7 use base qw(Net::DNS::RR::TXT);
  1           3  
  1           712  
8                
9                
10               =head1 NAME
11                
12               Net::DNS::RR::SPF - DNS SPF resource record
13                
14               =cut
15                
16 1       1   10 use integer;
  1           2  
  1           5  
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         50 return wantarray ? @spf : join '', @spf;
23               }
24                
25 2       2 1 555 sub txtdata { return &spfdata; }
26                
27                
28               1;
29               __END__