File Coverage

blib/lib/Text/Diff3/Range3.pm

Criterion	Covered	Total	%
statement	23	36	63.8
branch			n/a
condition			n/a
subroutine	7	16	43.7
pod	11	11	100.0
total	41	63	65.0

package Text::Diff3::Range3;
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 lo0 hi0 lo1 hi1 lo2 hi2));

sub as_array {
    my($self) = @_;
    return @{$self}{qw(type lo0 hi0 lo1 hi1 lo2 hi2)};
}

sub as_string {
    my($self) = @_;
    return sprintf '%s %d,%d %d,%d %d,%d',
        @{$self}{qw(type lo0 hi0 lo1 hi1 lo2 hi2)};
}

sub set_type_diff0 { return shift->set_type('0') }
sub set_type_diff1 { return shift->set_type('1') }
sub set_type_diff2 { return shift->set_type('2') }
sub set_type_diffA { return shift->set_type('A') }
sub range0 { return ($_[0]->lo0 .. $_[0]->hi0) }
sub range1 { return ($_[0]->lo1 .. $_[0]->hi1) }
sub range2 { return ($_[0]->lo2 .. $_[0]->hi2) }

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

sub initialize {
    my($self, @arg) = @_;
    $self->SUPER::initialize(@arg);
    @{$self}{qw(type lo0 hi0 lo1 hi1 lo2 hi2)} = @arg[1 .. 7];
    return $self;
}

1;

__END__