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;