File Coverage

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

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	3	66.6
total	42	43	97.6

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

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

#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 or
#pod L.
#pod
#pod =cut

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

#pod =method append
#pod
#pod   $doc->append(@things);
#pod
#pod This method adds the given C<@things> to the end of the document's list.
#pod
#pod =cut

sub append ($self, @things) {
  push $self->_things->@*, @things;
  return;
}

sub as_sieve ($self, $i = 0) {
  my $class = ref $self;

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

    $text .= "\n" unless $text =~ /\n\z/;

    $str .= $text;
  }

  return $str;
}

no Moo;
1;

__END__