use warnings;
use strict;

package Template::Declare::Buffer;
use base 'Class::Accessor::Fast';

__PACKAGE__->mk_accessors('data');

sub append {
    my $self    = shift;
    my $content = shift;

    no warnings 'uninitialized';
    $self->data( $self->data . $content );
}

sub clear {
    my $self = shift;
    $self->data('');
}

1;
__END__

=head1 NAME

Template::Declare::Buffer

=head1 DESCRIPTION

We use this class to manage the output buffer used by L<Template::Declare>.

=head1 SEE ALSO

L<Template::Declare>.