File Coverage

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

Criterion	Covered	Total	%
statement	18	22	81.8
branch	2	4	50.0
condition	1	2	50.0
subroutine	4	5	80.0
pod	0	2	0.0
total	25	35	71.4

use v5.36.0;
package Sieve::Generator::Element::Comment 0.003;
# ABSTRACT: a Sieve comment line

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

#pod =head1 DESCRIPTION
#pod
#pod A comment renders as one or more C<#>-prefixed lines of Sieve code.  The
#pod number of hash characters is configurable.
#pod
#pod =attr content
#pod
#pod This attribute holds the content of the comment.  It may be a plain string
#pod or an object doing L.
#pod
#pod =cut

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

#pod =attr hashes
#pod
#pod This attribute controls how many C<#> characters prefix each comment line.
#pod It defaults to C<1>.
#pod
#pod =cut

has hashes  => (is => 'ro', default  => 1);

sub children ($self) { ref $self->content ? ($self->content) : () }

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

  my $sieve = ref $self->content
            ? $self->content->as_sieve(0)
            : $self->content;

  my $indent = q{  } x $i;
  my $hashes = q{#} x $self->hashes;
  $sieve =~ s/^/$indent$hashes /gm;

  return $sieve;
}

no Moo;
1;

__END__