File Coverage

blib/lib/Bootylicious/ArticleArchiveSimple.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	0	2	0.0
condition	0	6	0.0
subroutine	7	7	100.0
pod	1	2	50.0
total	29	41	70.7

package Bootylicious::ArticleArchiveSimple;

use strict;
use warnings;

use base 'Mojo::Base';

use Bootylicious::Iterator;
use Bootylicious::Year;

__PACKAGE__->attr('articles');

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

    return $self->build;
}

sub build {
    my $self = shift;

    my @archive = ();
    while (my $article = $self->articles->next) {
        my $year  = $article->created->year;
        my $month = $article->created->month;

        push @archive, [$year, $month]
          if !@archive
              || ($archive[-1]->[0] != $year || $archive[-1]->[1] != $month);
    }

    return [@archive];
}

1;