File Coverage

blib/lib/Bootylicious/ArticleArchiveYearly.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	2	2	100.0
condition	5	5	100.0
subroutine	7	8	87.5
pod	0	3	0.0
total	44	49	89.8

package Bootylicious::ArticleArchiveYearly;

use strict;
use warnings;

use base 'Bootylicious::ArticleArchiveBase';

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

sub build {
    my $self = shift;

    my $years = {};
    while (my $article = $self->articles->next) {
        my $year = $article->created->year;

        next if $self->year && $self->year != $year;

        $years->{$year} ||= [];
        push @{$years->{$year}}, $article;
    }

    my @years;
    foreach my $year (sort { $b <=> $a } keys %$years) {
        push @years,
          Bootylicious::Year->new(
            year     => $year,
            articles => Bootylicious::Iterator->new(
                elements => $years->{$year}
            )
          );
    }

    $self->articles(
        Bootylicious::Iterator->new(elements => [@years]));

    return $self;
}

sub is_yearly  {1}
sub is_monthly {0}

1;