File Coverage

blib/lib/App/BatParser.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	31	87.1

package App::BatParser;

use utf8;

use Regexp::Grammars;
use Moo;
use namespace::autoclean;

our $VERSION = '0.009';    # VERSION

# ABSTRACT: Parse DOS .bat and .cmd files

has 'grammar' => (
    is      => 'ro',
    default => sub {
        return qr{



            (?:<[Lines]>\n)*

             |  |

            \:\: | REM

            \:(?!:)[^\n]*

            \@?

            (?: || )

             |  |  |  |  |

            echo (?: | )

            off

            If (?: | )

             |

            NOT

            EXIST



            call

            Goto :?

            set =

            for  DO

            NEQ | EQU | GTR | == | LSS | LEQ | GEQ

            [^:\n\s]+

            [^\s]+

            [^\n]*

            [^\n\s\:]*

        }xmi;
    }
);

sub parse {
    my $self = shift;
    my $text = shift;

    if ( $^O eq 'MSWin32' ) {

        # First join lines splited in multiple lines
        $text =~ s/\^\n//msg;
    }
    else {
        # First join lines splited in multiple lines
        $text =~ s/\^\r\n//msg;
        $text =~ s/\r\n/\n/msg;
    }

    if ( $text =~ $self->grammar ) {
        return \%/;
    }
    else {
        return ();
    }
}

__PACKAGE__->meta->make_immutable;

1;

__END__