File Coverage

blib/lib/Mail/Karmasphere/Parser/RBL/Domain.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 7 42.8
pod 0 2 0.0
total 12 23 52.1


line stmt bran cond sub pod time code
1             package Mail::Karmasphere::Parser::RBL::Domain;
2              
3 1     1   1164 use strict;
  1         3  
  1         30  
4 1     1   6 use warnings;
  1         2  
  1         24  
5 1     1   5 use base 'Mail::Karmasphere::Parser::RBL::Base';
  1         3  
  1         153  
6              
7 0     0     sub _type { "domain" }
8              
9 0     0     sub _streams { qw(domain) }
10              
11 0     0 0   sub my_format { "rbl.domain" } # if the source table's "magic" field is rbl.domain, this module deals with it.
12              
13             sub tweaks {
14 0     0 0   my $self = shift;
15            
16             # we assume it's a domain identity.
17              
18 0           return ("domain", 0, $_[0]);
19             }
20              
21             1;