File Coverage

blib/lib/Sieve/Generator/Text/Terms.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	0	1	0.0
total	22	24	91.6

use v5.36.0;
package Sieve::Generator::Text::Terms 0.001;
# ABSTRACT: a sequence of Sieve terms joined by spaces

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

#pod =head1 DESCRIPTION
#pod
#pod A C object renders a sequence of terms as a space-joined inline Sieve
#pod expression.  It is the general-purpose building block for Sieve test
#pod expressions and argument sequences.
#pod
#pod =attr terms
#pod
#pod This attribute holds the arrayref of terms.  Each term may be a plain string or
#pod an object doing L; all terms are joined with single
#pod spaces when rendered.
#pod
#pod =cut

has terms => (is => 'ro', required => 1);

sub as_sieve ($self, $i = undef) {
  my $str = (q{  } x ($i // 0))
          . join q{ },
            map {; ref($_) ? $_->as_sieve : $_ }
            $self->terms->@*;

  return $str;
}

no Moo;
1;

__END__