SYNOPSIS

package MyPackage;
use Moo;
with 'Catmandu::Buffer';
# Print only when the buffer is full...
sub print {
my ($self,$str) = @_;
if ($self->buffer_is_full) {
print join "\n" , @{ $self->buffer };
$self->clear_buffer;
}
$self->buffer_add($str);
}
package main;
my $x = MyPackage->new;
for (my $i = 0 ; $i < 1000 ; $i++) {
$x->print($x);
}

ATTRIBUTES

buffer

A ARRAY reference to the content of the buffer.

buffer_size(MAX)

The maximum size of a buffer.

METHODS

clear_buffer()

Empty the buffer.

buffer_used()

Returns a true value when there is content in the buffer.

buffer_is_full()

Returns a true value when the buffer has reached its maximum capacity.

buffer_add($x)

Adds $x to the buffer.