File Coverage

blib/lib/WWW/Ruler/Piece.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	2	4	50.0
condition			n/a
subroutine	8	9	88.8
pod	5	7	71.4
total	33	39	84.6

package WWW::Ruler::Piece;

use strict;
use warnings;

sub new {
    bless { amount => $_[1], ruler => [] }, $_[0];
}

sub start {
    $_[0]->{start};
}

sub end {
    $_[0]->{end};
}

sub size {
    $_[0]->{amount} and $_[0]->{end} - $_[0]->{start} + 1;
}

sub ruler {
    $_[0]->{ruler};
}

sub add_ruler_item {
    push @{$_[0]->{ruler}}, $_[1];
}

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

    if ( $outside ) {
	$self->{size} = $self->{start} = $self->{end} = 0;
	$self->{outside} = 1;
	return $self;
    }

    ! ! $self->{outside};
}

1;

__END__