File Coverage

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

Criterion	Covered	Total	%
statement	28	28	100.0
branch	6	8	75.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	2	50.0
total	41	45	91.1

use v5.36.0;
package Sieve::Generator::Lines::Junction 0.001;
# ABSTRACT: a Sieve allof/anyof/noneof test

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

#pod =head1 DESCRIPTION
#pod
#pod A junction renders a Sieve multi-test expression: C,
#pod C, or C (for C).  Each contained test is
#pod rendered on its own indented line.
#pod
#pod =attr type
#pod
#pod This attribute holds the junction type.  It must be one of C,
#pod C, or C.
#pod
#pod =cut

#pod =attr things
#pod
#pod This attribute holds the list of tests in the junction.  Each may be a plain
#pod string or an object doing L or
#pod L.
#pod
#pod =cut

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

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

sub as_sieve ($self, $i = undef) {
  my $indent = q{  } x ($i // 0);

  my $type  = $self->type;
  my $func  = $type eq 'anyof'  ? 'anyof'
            : $type eq 'allof'  ? 'allof'
            : $type eq 'noneof' ? 'not anyof'
            : die "unknown junction type";

  my $str = "${indent}$func(\n";

  my @strs;
  for my $thing ($self->things) {
    my $substr = ref $thing ? $thing->as_sieve($i+1) : $thing;
    chomp $substr;
    push @strs, $substr;
  }

  $str .= join qq{,\n}, @strs;
  $str .= "\n${indent})\n";

  return $str;
}

no Moo;
1;

__END__