File Coverage

blib/lib/Bootylicious/CommentIteratorLoader.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	19	20	95.0

package Bootylicious::CommentIteratorLoader;

use strict;
use warnings;

use base 'Bootylicious::FileIteratorLoader';

__PACKAGE__->attr(filter => sub {qr/\.comment-(\d+)$/});
__PACKAGE__->attr(element_class => 'Bootylicious::Comment');

sub load {
    my $iterator = shift->SUPER::load(@_);

    $iterator->elements(
        [   sort { $a->created->epoch <=> $b->created->epoch }
              @{$iterator->elements}
        ]
    );
    $iterator->rewind;

    return $iterator;
}

1;