File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	2	50.0
total	32	34	94.1

use v5.36.0;
package Sieve::Generator::Lines::Command 0.001;
# ABSTRACT: a single Sieve command statement

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

use Params::Util qw(_ARRAY0);

#pod =head1 DESCRIPTION
#pod
#pod A command is a single semicolon-terminated Sieve statement, such as C,
#pod C, or C.  It consists of an identifier followed by
#pod zero or more arguments.
#pod
#pod =attr identifier
#pod
#pod This attribute holds the name of the Sieve command, such as C,
#pod C, or C.
#pod
#pod =cut

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

#pod =attr args
#pod
#pod This attribute holds the list of arguments to the command.  Each argument may
#pod be a plain string or an object doing L.
#pod
#pod =cut

has _args => (is => 'ro', required => 1, init_arg => 'args');
sub args { $_[0]->_args->@* }

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

  my $str = $indent . $self->identifier;
  my $n = 0;

  $str .= ' ' . (ref $_ ? $_->as_sieve(0) : $_) for $self->args;
  $str .= ";\n";

  return $str;
}

no Moo;
1;

__END__