File Coverage

blib/lib/Plosurin/Utl/SetLinePos.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition	2	2	100.0
subroutine	8	8	100.0
pod	0	1	0.0
total	39	40	97.5

#===============================================================================
#
#  DESCRIPTION:  Utl visiter for setup nodes positions
#
#       AUTHOR:  Aliaksandr P. Zahatski, <[e-mail]>
#===============================================================================
package Plosurin::Utl::SetLinePos;
use strict;
use warnings;
use Plosurin::AbstractVisiter;
use base 'Plosurin::AbstractVisiter';
use Data::Dumper;
use vars qw($AUTOLOAD);
our $VERSION = '0.01';


sub  Node {
    my $self = shift;
    my $n = shift;
    my $line = $n->{matchline} + ( $self->{offset} || 0 );
    my $src_file = $self->{srcfile};
    foreach my $c (@{ $n->childs }) {
        $c->{matchline} = $line;
        $c->{srcfile} = $src_file;
    }
    $self->visit_childs($n);
}

sub __default_method {
    my $self =shift;
    my $n = shift;

}
1;