File Coverage

blib/lib/Dancer/Logger/Capture/Trap.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	28	29	96.5

package Dancer::Logger::Capture::Trap;
our $AUTHORITY = 'cpan:SUKRIA';
$Dancer::Logger::Capture::Trap::VERSION = '1.3514_04'; # TRIAL
$Dancer::Logger::Capture::Trap::VERSION = '1.351404';
# ABSTRACT: a place to store captured Dancer logs
use strict;
use warnings;
use base 'Dancer::Object';


__PACKAGE__->attributes( "_storage" );

sub init {
    my $self = shift;
    $self->_storage([]) unless $self->_storage;
}

sub store {
    my($self, $level, $message) = @_;

    push @{$self->_storage}, { level => $level, message => $message };
}



sub read {
    my $self = shift;

    my $logs = $self->_storage;
    $self->_storage([]);
    return $logs;
}



1;

__END__