File Coverage

blib/lib/Bootylicious/ArticleArchiveBase.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod	1	4	25.0
total	20	29	68.9

package Bootylicious::ArticleArchiveBase;

use strict;
use warnings;

use base 'Mojo::Base';

__PACKAGE__->attr('articles');
__PACKAGE__->attr('year');

my @months = (
    qw/January February March April May July June August September October November December/
);

sub new {
    my $self = shift->SUPER::new(@_);

    return $self->build;
}

sub month_name {
    my $self = shift;

    return '' unless $self->month;

    return $months[$self->month - 1];
}

sub next { shift->articles->next }
sub size { shift->articles->size }

1;