File Coverage

blib/lib/Text/Diff3/Range2.pm

Criterion	Covered	Total	%
statement	29	35	82.8
branch	0	2	0.0
condition			n/a
subroutine	11	15	73.3
pod	9	9	100.0
total	49	61	80.3

package Text::Diff3::Range2;
use 5.006;
use strict;
use warnings;
use base qw(Text::Diff3::Base);

use version; our $VERSION = '0.08';

## no critic (NamingConventions::Capitalization)

__PACKAGE__->mk_attr_accessor(qw(type loA hiA loB hiB));

sub set_type_a { return shift->set_type('a') }
sub set_type_c { return shift->set_type('c') }
sub set_type_d { return shift->set_type('d') }
sub rangeA { return ($_[0]->loA .. $_[0]->hiA) }
sub rangeB { return ($_[0]->loB .. $_[0]->hiB) }

sub set_type {
    my($self, $x) = @_;
    $self->{type} = $x;
    return $self;
}

sub as_array {
    my($self) = @_;
    return @{$self}{qw(type loA hiA loB hiB)};
}

sub as_string {
    my($self) = @_;
    return $self->_as_line_range($self->loA, $self->hiA)
         . $self->type
         . $self->_as_line_range($self->loB, $self->hiB);
}

sub initialize {
    my($self, @arg) = @_;
    $self->SUPER::initialize(@arg);
    @{$self}{qw(type loA hiA loB hiB)} = @arg[1 .. 5];
    return $self;
}

sub _as_line_range {
    my($self, $lo, $hi) = @_;
    return $lo >= $hi ? $hi : $lo . q{,} . $hi;
}

1;

__END__