File Coverage

blib/lib/HTML/ValidationRules.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 1 3 33.3
subroutine 7 7 100.0
pod 2 3 66.6
total 28 31 90.3


line stmt bran cond sub pod time code
1             package HTML::ValidationRules;
2 3     3   1472045 use 5.008001;
  3         15  
  3         122  
3 3     3   17 use strict;
  3         6  
  3         181  
4 3     3   16 use warnings;
  3         8  
  3         495  
5              
6             our $VERSION = '0.02';
7              
8 3     3   1650 use HTML::ValidationRules::Parser;
  3         21  
  3         332  
9              
10             sub new {
11 52     52 1 65174 my ($class, %args) = @_;
12 52         186 bless \%args, $class;
13             }
14              
15             sub parser {
16 52     52 0 77 my ($self) = @_;
17 52   33     397 $self->{parser} ||= HTML::ValidationRules::Parser->new(%$self);
18             }
19              
20             sub load_rules {
21 52     52 1 307 my ($self, %args) = @_;
22 52         130 $self->parser->load_rules(%args);
23             }
24              
25             !!1;
26              
27             __END__