szabgab / perl5-markua-parser / 11

Committed 7 Mar 2018 - 22:17 coverage: 96.97% (+2.5%) from 94.444%

Build # 11

Build Type

push

travis-ci

Committed by

szabgab

Commit Message

parse paragraphs as well

Run Details

32 of 33 relevant lines covered (96.97%)

23.76 hits per line

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

96.97

/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;

    $self->{text} = '';

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

        # anything else defaults to paragraph
        if ($line =~ /\S/) {
            $self->{tag} = 'p';
            $self->{text} .= $line;
            next;
        }

        if ($line =~ /^\s*$/) {
            $self->save_tag(\@entries);
            next;
        }

        push @errors, {
            row => $cnt,
            line => $line,
        }
    }
    $self->save_tag(\@entries);
    return \@entries, \@errors;
}

sub save_tag {
    my ($self, $entries) = @_;

    if ($self->{tag}) {
        $self->{text} =~ s/\n+\Z//;
        push @$entries, {
            tag => $self->{tag},
            text => $self->{text},
        };
        $self->{tag} = undef;
        $self->{text} = '';
    }
    return;
}


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) = @_;	12×
16	my @entries;	12×
17	my @errors;
18	my $cnt = 0;	12×
19
20	$self->{text} = '';	12×
21
22	for my $line (path($filename)->lines_utf8) {	12×
23	$cnt++;	88×
24	if ($line =~ /^(#{1,6}) (\S.*)/) {	88×
25	push @entries, {	28×
26	tag => 'h' . length($1),
27	text => $2,
28	};
29	next;	28×
30	}
31
32	# anything else defaults to paragraph
33	if ($line =~ /\S/) {	60×
34	$self->{tag} = 'p';	20×
35	$self->{text} .= $line;	20×
36	next;	20×
37	}
38
39	if ($line =~ /^\s*$/) {	40×
40	$self->save_tag(\@entries);	40×
41	next;	40×
42	}
43
44	push @errors, {	!
45	row => $cnt,
46	line => $line,
47	}
48	}
49	$self->save_tag(\@entries);	12×
50	return \@entries, \@errors;	12×
51	}
52
53	sub save_tag {
54	my ($self, $entries) = @_;	52×
55
56	if ($self->{tag}) {	52×
57	$self->{text} =~ s/\n+\Z//;	12×
58	push @$entries, {
59	tag => $self->{tag},
60	text => $self->{text},
61	};
62	$self->{tag} = undef;	12×
63	$self->{text} = '';	12×
64	}
65	return;	52×
66	}
67
68
69	1;
70

szabgab / perl5-markua-parser / 11

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