File Coverage

lib/Apache/SiteConfig/Section.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package Apache::SiteConfig::Section;
2 1     1   380 use Moose;
  0            
  0            
3             extends 'Apache::SiteConfig::Root';
4              
5             has name => ( is => 'rw' );
6             has value => ( is => 'rw' );
7              
8             sub to_string {
9             my ($self) = @_;
10             my $level = $self->get_level;
11             my $indent = " " x ($level * 4);
12             return join "\n" ,"$indent<@{[$self->name]} @{[ $self->value ]}>",
13             (map { $_->to_string } @{ $self->statements }),
14             "$indent</@{[ $self->name ]}>\n";
15             }
16              
17             1;