File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	1	2	50.0
subroutine	4	4	100.0
pod	0	1	0.0
total	20	22	90.9

use v5.36.0;
package Sieve::Generator::Element::BracketComment 0.003;
# ABSTRACT: a Sieve bracket comment (/* ... */)

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

#pod =head1 DESCRIPTION
#pod
#pod A bracket comment renders as a C comment block as defined in
#pod RFC 5228.
#pod
#pod =attr content
#pod
#pod This attribute holds the text content of the comment.
#pod
#pod =cut

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

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

  my $indent = q{  } x $i;
  return "${indent}/* " . $self->content . " */";
}

no Moo;
1;

__END__