File Coverage

blib/lib/PPIx/IndexOffsets.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	43	46	93.4

package PPI::Document;
use strict;
use warnings;

sub index_offsets {
    my $self   = shift;
    my $offset = 0;
    foreach my $token ( $self->tokens ) {
        my $content = $token->content;
        my $length  = length($content);

        $token->{__start_offset} = $offset;
        $token->{__stop_offset}  = $offset + $length;
        $offset += $length;
    }
}

package PPI::Token;
use strict;
use warnings;

sub start_offset {
    my $self = shift;
    return $self->{__start_offset};
}

sub stop_offset {
    my $self = shift;
    return $self->{__stop_offset};
}

package PPIx::IndexOffsets;
use strict;
use warnings;
use PPI;
our $VERSION = '0.32';

1;

__END__