File Coverage

blib/lib/Data/RingBuffer/Shared.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	16	18	88.8

package Data::RingBuffer::Shared;
use strict;
use warnings;
our $VERSION = '0.02';
require XSLoader;
XSLoader::load('Data::RingBuffer::Shared', $VERSION);
@Data::RingBuffer::Shared::Int::ISA = ('Data::RingBuffer::Shared');
@Data::RingBuffer::Shared::F64::ISA = ('Data::RingBuffer::Shared');

sub to_list {
    my ($self) = @_;
    my $sz = $self->size;
    return () unless $sz;
    grep { defined } map { $self->latest($sz - 1 - $_) } 0 .. $sz - 1;
}

1;
__END__