File Coverage

blib/lib/Algorithm/FloodControl/Backend.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	37	40	92.5

package Algorithm::FloodControl::Backend;

use utf8;
use strict;
use warnings;

use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors( qw/storage prefix expires/ );

=head2 get_info

=cut

sub get_info {
    my $self   = shift;
    my $attempts = shift;
    my $size   = 0;
    my $number = $self->_last_number;
    if ( ! defined $number ) {
        return {
            size => $size,
            timeout => 0
        };
    }
    my $last_timeout;
    my $timeout;
    while ( defined ( $timeout = $self->get_item($number) ) ){
        if ( ! $attempts || $size < $attempts ) {
            $last_timeout = $timeout;
        }
        $size++;
        $number--;
    }
    return {
        size => $size,
        timeout => $last_timeout ? $last_timeout - time : 0
    };
}

1;
__END__