File Coverage

blib/lib/Textoola/PatternStatParser.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch	3	6	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	4	0.0
total	52	62	83.8

# PODNAME: Textoola::PatternStatParser
# ABSTRACT: Class to parse text into pattern-tokenline and creating at counting-hash of pattern-tokenline.

use strict;
use warnings;
use v5.14;

package Textoola::PatternStatParser;
$Textoola::PatternStatParser::VERSION = '0.003';
sub new {
    my $class = shift;
    my %args  = @_;

    my $self={
	separator       => '\s',
	separator_subst => ' ',
	path            => $args{path},
	patternstats    => {},
    };

    bless $self, $class;
    return $self;
}

sub parse_line {
    my $self = shift;
    my $line = shift;

    chomp $line;
    my $sep      = $self->{separator};
    my $sepsub   = $self->{separator_subst};
    my $patstats = $self->{patternstats};
    my @tokens   = split /$sep/,$line;

    my $pattern;
    if (scalar(@tokens)) {
	$pattern //= shift @tokens;
	$patstats->{$pattern}++;

	while (scalar(@tokens)) {
	    $pattern .= $sepsub.shift @tokens;
	    $patstats->{$pattern}++;
	}
    }
}

sub parse {
    my $self = shift;
    my $path = $self->{path};

    my $fh;
    if (defined $path) {
	open($fh,"<",$path) or die "File $path not found";
    } else {
	$fh=*STDIN;
    }

    while(my $line=<$fh>) {
	$self->parse_line($line);
    }

    close $fh;
}

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


1;

__END__