File Coverage

blib/lib/Mail/Karmasphere/Parser/RBL/URL.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::URL;
2              
3 1     1   1176 use strict;
  1         3  
  1         29  
4 1     1   6 use warnings;
  1         2  
  1         24  
5 1     1   5 use base 'Mail::Karmasphere::Parser::RBL::Base';
  1         3  
  1         155  
6              
7 0     0     sub _type { "url" }
8              
9 0     0     sub _streams { qw(url) }
10              
11 0     0 0   sub my_format { "rbl.url" } # if the source table's "magic" field is rbl.url, this module deals with it.
12              
13             sub tweaks {
14 0     0 0   my $self = shift;
15            
16             # we assume it's a url identity.
17              
18 0           return ("url", 0, $_[0]);
19             }
20              
21             1;