File Coverage

blib/lib/Sieve/Generator/Element/Document.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition	2	2	100.0
subroutine	6	6	100.0
pod	1	3	33.3
total	36	38	94.7

use v5.36.0;
package Sieve::Generator::Element::Document 0.003;
# ABSTRACT: a sequence of Sieve lines forming a complete script or blank line

use Moo;
with 'Sieve::Generator::Element';

#pod =head1 DESCRIPTION
#pod
#pod A document is an ordered sequence of things, and renders as a flat sequence of
#pod Sieve lines.  It serves as the top-level container for a complete Sieve script
#pod (when constructed by L) or as an empty separator
#pod line (when constructed by L).
#pod
#pod =attr things
#pod
#pod This attribute holds the list of things that make up the document.  Each may
#pod be a string or an object doing L.
#pod
#pod =cut

has _things => (is => 'ro', init_arg => 'things', required => 1);
sub things ($self) { $self->_things->@* }
sub children ($self) { $self->things }

sub as_sieve ($self, $i = undef) {
  $i //= 0;

  my $str = q{};
  my $indent = q{  } x $i;
  for my $thing ($self->things) {
    my $text = $thing->as_sieve($i);

    $str .= "$text\n";
  }

  return $str;
}

no Moo;
1;

__END__