File Coverage

blib/lib/Devel/Declare/Parser/Emulate.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	7	8	87.5
condition			n/a
subroutine	13	13	100.0
pod	4	4	100.0
total	67	68	98.5

package Devel::Declare::Parser::Emulate;
use strict;
use warnings;
use base 'Devel::Declare::Parser';
use Data::Dumper;
use Carp;

__PACKAGE__->add_accessor( 'test_line' );
use Devel::Declare::Interface;
Devel::Declare::Interface::register_parser( 'test' );

sub line { shift->test_line( @_ )}

sub skipspace {
    my $self = shift;
    return unless $self->peek_remaining =~ m/^(\s+)/;
    $self->advance(length($1));
}

#XXX !BEWARE! Will not work for nested quoting, even escaped
#             This is a very dumb implementation.
sub _quoted_from_dd {
    my $self = shift;
    my $start = $self->peek_num_chars(1);
    my $end = $self->end_quote( $start );
    my $regex = "^\\$start\([^$end]*)\\$end";
    $self->peek_remaining =~ m/$regex/;
    my $quoted = $1;

    croak( "qfdd regex: |$regex| did not get complete quote." )
        unless $quoted;

    return ( length( $quoted ) + 2, $quoted );
}

sub _peek_is_word {
    my $self = shift;
    my $start = $self->peek_num_chars(1);
    return 0 unless $start =~ m/^[A-Za-z_]$/;
    $self->peek_remaining =~ m/^(\w+)/;
    return length($1);
}

sub _linestr_offset_from_dd {
    my $self = shift;
    return length($self->line);
}

sub rewrite {
    my $self = shift;
    $self->new_parts( $self->parts );
    1;
}

sub write_line {
    my $self = shift;
    $self->SUPER::write_line();
    $self->_scope_end("$self") if $self->end_char eq '{';
}

1;

=head1 NAME

Devel::Declare::Parser::Emulate - Parser that emulates Devel-Declare

=head1 TESTING ONLY

For testing purposes only.

=head1 AUTHORS

Chad Granum L

=head1 COPYRIGHT

Copyright (C) 2010 Chad Granum

Devel-Declare-Parser is free software; Standard perl licence.

Devel-Declare-Parser is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the license for more details.