File Coverage

blib/lib/App/PerlFuzzyTokenFinder/MatchedPosition.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	6	0.0
condition			n/a
subroutine	3	8	37.5
pod	0	5	0.0
total	12	41	29.2

package App::PerlFuzzyTokenFinder::MatchedPosition;
use strict;
use warnings;
use Carp qw(croak);

# args:
#   filename: Str
#   line_number: Num
#   statement: PPI::Statement, should be cloned with PPI::Statement#clone
sub new {
    my ($class, %args) = @_;

    my $filename = delete $args{filename};
    croak "filename required" unless defined $filename;

    my $line_number = delete $args{line_number};
    croak "line_number required" unless defined $line_number;

    my $statement = delete $args{statement};
    croak "statement required" unless defined $statement;

    bless +{
        filename    => $filename,
        line_number => $line_number,
        statement   => $statement,
    };
}

# getter
sub filename { shift->{filename} }
sub line_number { shift->{line_number} }
sub statement { shift->{statement} }

sub format_for_print {
    my $self = shift;

    sprintf "%s:%d:%s", $self->filename, $self->line_number, $self->statement->content;
}

1;
__END__