File Coverage

blib/lib/HTML/ListScraper/Dust.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	5	0.0
total	35	40	87.5

package HTML::ListScraper::Dust;

use warnings;
use strict;

use Class::Generate qw(class);

class 'HTML::ListScraper::Alignment' => {
    score => { type => '$', required => 1 },
    positions => { type => '@', required => 1 }
};

sub new {
    my $class = shift;
    my $self = { align => [] };
    bless $self, $class;

    return $self;
}

sub add_alignment {
    my ($self, $score, $pos) = @_;

    push @{$self->{align}},
        HTML::ListScraper::Alignment->new(score => $score,
					  positions => $pos);
}

sub add_alignments_before {
    my ($self, $alignments) = @_;

    unshift @{$self->{align}}, @$alignments;
}

sub add_alignments_after {
    my ($self, $alignments) = @_;

    push @{$self->{align}}, @$alignments;
}

sub get_alignments {
    my $self = shift;

    return wantarray ? @{$self->{align}} : $self->{align};
}

1;