File Coverage

lib/XML/XMetaL/Utilities/Filter/Base.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             package XML::XMetaL::Utilities::Filter::Base;
2            
3 2     2   12 use strict;
  2         5  
  2         78  
4 2     2   11 use warnings;
  2         4  
  2         203  
5            
6 2     2   10 use base 'XML::XMetaL::Utilities::Abstract';
  2         4  
  2         928  
7            
8              
9 2     2   11 use Carp;
  2         4  
  2         121  
10            
11 2     2   1035 use XML::XMetaL::Utilities qw(:dom_node_types);
  0            
  0            
12            
13             use constant TRUE => 1;
14             use constant FALSE => 0;
15            
16             sub new {
17             my ($class) = @_;
18             return bless {}, ref($class) || $class;
19             }
20            
21             sub accept {$_[0]->abstract}
22            
23             1;
24            
25            
26             __END__