File Coverage

blib/lib/HTML/Feature/Base.pm
Criterion Covered Total %
statement 19 20 95.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package HTML::Feature::Base;
2 9     9   78 use strict;
  9         16  
  9         292  
3 9     9   46 use warnings;
  9         15  
  9         258  
4 9     9   92 use Scalar::Util qw(weaken);
  9         17  
  9         550  
5 9     9   46 use base qw(Class::Accessor::Fast Class::Data::ConfigHash);
  9         15  
  9         8576  
6              
7             __PACKAGE__->mk_accessors($_) for qw(context);
8              
9             sub new {
10 3     3 1 54 my $class = shift;
11 3         9 my %args = @_;
12 3         9 my $config = delete $args{config};
13 3         42 my $self = $class->SUPER::new( {%args} );
14 3 50       40 if ($config) {
15 0         0 $self->config($config);
16             }
17 3         61 weaken($self->{context});
18 3         14 return $self;
19             }
20              
21             1;
22             __END__