view release on metacpan or  search on metacpan

lib/Log/Log4perl/Appender/Chunk.pm  view on Meta::CPAN

has 'previous_chunk' => ( is => 'rw' , isa => 'Maybe[Str]' , default => undef , writer => '_set_previous_chunk' );
has 'messages_buffer' => ( is => 'rw' , isa => 'ArrayRef[Str]' , default => sub{ []; });

# Settings:
has 'chunk_marker' => ( is => 'ro' , isa => 'Str', required => 1, default => 'chunk' );

# Store:
has 'store' => ( is => 'ro', isa => 'Log::Log4perl::Appender::Chunk::Store',
                 required => 1, lazy_build => 1);
has 'store_class' => ( is => 'ro' , isa => 'Str' , default => 'Null' );
has 'store_args'  => ( is => 'ro' , isa => 'HashRef' , default => sub{ {}; });

has 'store_builder' => ( is => 'ro' , isa => 'CodeRef', required => 1, default => sub{
                             my ($self) = @_;
                             sub{
                                 $self->_full_store_class()->new($self->store_args());
                             }
                         });

sub _build_store{
    my ($self) = @_;

t/02-store.t  view on Meta::CPAN

#! perl -T
use Test::More;

package MyStore;
use Moose;
extends qw/Log::Log4perl::Appender::Chunk::Store/;

has 'messages' => ( is => 'ro', isa => 'HashRef', default => sub{ {}; } );

sub store{
    my ($self, $chunk_id, $big_message) = @_;
    $self->messages()->{$chunk_id} = $big_message;
}
1;

package main;
use Log::Log4perl;