File Coverage

lib/Config/Pound/Node/Section.pm

Criterion	Covered	Total	%
statement	7	8	87.5
branch	1	2	50.0
condition	5	6	83.3
subroutine	2	2	100.0
pod	1	1	100.0
total	16	19	84.2

package Config::Pound::Node::Section;
use parent 'Config::Proxy::Node::Section';

sub append_node {
    my $self = shift;
    my $last = $self->last;
    if ($last && $last->is_statement && lc($last->kw) eq 'end') {
	$self->insert_node($last->index, @_);
    } else {
	$self->SUPER::append_node(@_);
    }
}

1;

=head1 NAME

Config::Pound::Node::Section - pound proxy configuration section

=head1 DESCRIPTION

Objects of this class represent a C (or a C),
in B configuration file.  It is basically the same as its parent
class B (which see), except that its
B method ensures that no statements are added after the
terminating B keyword.

=head1 SEE ALSO

L, L.

=cut