szabgab / perl5-markua-parser / 10

Committed 5 Mar 2018 - 15:52 coverage: 94.444% (-5.6%) from 100.0%

Build # 10

Build Type

push

travis-ci

Committed by

szabgab

Commit Message

collect errors, parse every line in the input file

Run Details

17 of 18 relevant lines covered (94.44%)

15.11 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

94.44

/lib/Markua/Parser.pm

package Markua::Parser;
use strict;
use warnings;
use Path::Tiny qw(path);

our $VERSION = 0.01;

sub new {
    my ($class) = @_;
    my $self = bless {}, $class;
    return $self;
}

sub parse_file {
    my ($self, $filename) = @_;
    my @entries;
    my @errors;
    my $cnt = 0;
    for my $line (path($filename)->lines_utf8) {
        $cnt++;
        if ($line =~ /^(#{1,6}) (\S.*)/) {
            push @entries, {
                tag => 'h' . length($1),
                text => $2,
            };
            next;
        }

        if ($line =~ /^\s*$/) {
            next;
        }

        push @errors, {
            row => $cnt,
            line => $line,
        }
    }
    return \@entries, \@errors;
}


1;


1	package Markua::Parser;
2	use strict;	4×
3	use warnings;	4×
4	use Path::Tiny qw(path);	4×
5
6	our $VERSION = 0.01;
7
8	sub new {
9	my ($class) = @_;	4×
10	my $self = bless {}, $class;	4×
11	return $self;	4×
12	}
13
14	sub parse_file {
15	my ($self, $filename) = @_;	8×
16	my @entries;	8×
17	my @errors;
18	my $cnt = 0;	8×
19	for my $line (path($filename)->lines_utf8) {	8×
20	$cnt++;	52×
21	if ($line =~ /^(#{1,6}) (\S.*)/) {	52×
22	push @entries, {	28×
23	tag => 'h' . length($1),
24	text => $2,
25	};
26	next;	28×
27	}
28
29	if ($line =~ /^\s*$/) {	24×
30	next;	24×
31	}
32
33	push @errors, {	!
34	row => $cnt,
35	line => $line,
36	}
37	}
38	return \@entries, \@errors;	8×
39	}
40
41
42	1;
43

szabgab / perl5-markua-parser / 10

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous