File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	30	31	96.7

use v5.36.0;
package Sieve::Generator::Element::Heredoc 0.003;
# ABSTRACT: a Sieve multiline string (heredoc)

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

#pod =head1 DESCRIPTION
#pod
#pod A heredoc renders a block of text as a Sieve multiline string using the
#pod C/C<.> syntax defined in RFC 5228.  It is typically used as an
#pod argument to a command when the content is too large or complex for a simple
#pod quoted string.
#pod
#pod =attr text
#pod
#pod This attribute holds the text content of the multiline string.  A trailing
#pod newline is added automatically if absent, and any line beginning with C<.>
#pod is escaped to C<..>.
#pod
#pod =cut

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

#pod =attr comment
#pod
#pod This attribute holds an optional hash comment that appears on the C
#pod line, as allowed by RFC 5228.  If set, it renders as C.
#pod
#pod =cut

has comment => (is => 'ro');

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

  my $indent = q{  } x $i;
  my $str = "${indent}text:";
  $str .= " # " . $self->comment if defined $self->comment;
  $str .= "\n" . $self->text;
  $str .= "\n" unless $str =~ /\n\z/;
  $str =~ s/^\./../mg;
  return "$str.\n";
}

no Moo;
1;

__END__