File Coverage

blib/lib/Text/Diff3/Text.pm

Criterion	Covered	Total	%
statement	38	51	74.5
branch	7	12	58.3
condition	5	6	83.3
subroutine	12	15	80.0
pod	10	10	100.0
total	72	94	76.6

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

use version; our $VERSION = '0.08';

sub text { return $_[0]->{text} }
sub list { return $_[0]->{text} } # interface to ListMixin

sub first_index { return 1 }

sub last_index {
   my($self) = @_;
   return $#{$self->{text}} + $self->first_index;
}

sub range {
    my($self) = @_;
    return ($self->first_index .. $self->last_index);
}

sub at {
    my($self, $x) = @_;
    $x -= $self->first_index;
    return $x < 0 || $x > $#{$self->{text}} ? undef : $self->{text}[$x];
}

sub as_string_range {
    my($self, @range) = @_;
    my $t = q{};
    for (@range) {
        my $line = $self->at($_);
        if (defined $line) {
            $t .= $line . "\n";
        }
    }
    return $t;
}

sub as_string_at {
    my($self, $x) = @_;
    my $line = $self->at($x);
    return defined($line) ? $line . "\n" : q{};
}

sub eq_at {
    my($self, $x, $other) = @_;
    my $this = $self->at($x);
    return 0 if (defined $this) ^ (defined $other);
    return ! (defined $this) || $this eq $other;
}

sub initialize {
    my($self, @arg) = @_;
    $self->SUPER::initialize(@arg);
    my($f, $s) = @arg;
    if (ref $s eq 'ARRAY') {
        $self->{text} = $s;
    } else {
        if (ref $s) {
            $s = ${$s};
        }
        chomp $s;
        $self->{text} = [split /\n/msx, $s, -1];
    }
    return $self;
}

1;

__END__