The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Catmandu::Buffer - A base class for modules that need an array buffer

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.

SEE ALSO

Catmandu::Solr::Bag