File Coverage

blib/lib/assign/Struct.pm

Criterion	Covered	Total	%
statement	47	49	95.9
branch	15	22	68.1
condition	8	12	66.6
subroutine	7	7	100.0
pod	0	4	0.0
total	77	94	81.9

use strict; use warnings;
package assign::Struct;

use XXX;

sub new {
    my $class = shift;
    bless {
        elems => [],
        @_,
    }, $class;
}

sub parse {
    my ($self) = @_;

    my $node = $self->{node};
    my $statement;
    for my $child ($node->children) {
        my $type = ref($child);
        if ($type eq 'PPI::Token::Whitespace') {
            next;
        }
        if ($type eq 'PPI::Statement') {
            XXX $node, "more than one statement"
                if $statement;
            $statement = $child;
            next;
        }
        XXX $node, "unexpected node";
    }

    XXX $node, "no statement in array"
        unless $statement;

    $self->{in} = [ $statement->children ];

    while (1) {
        $self->parse_elem or last;
        $self->parse_comma or last;
    }

    return $self;
}

sub parse_comma {
    my ($self) = @_;
    my $in = $self->{in};
    while (@$in) {
        my $tok = shift(@$in);
        my $type = ref($tok);
        next if $type eq 'PPI::Token::Whitespace';

        if ($type eq 'PPI::Token::Operator' and
            $tok->content eq ','
        ) {
            return 1;
        }
        else {
            XXX $tok, $in, "comma expected";
        }
    }
    return 0;
}

sub get_var {
    my ($self, $var) = @_;
    my $def;
    my $in = $self->{in};
    if (@$in > 1 and
        ref($in->[0]) eq 'PPI::Token::Operator' and
        $in->[0]->content eq '='
    ) {
        shift @$in;
        my $d = shift @$in;
        XXX $d, "Invalid token for variable default"
            unless ref($d) =~
                /^PPI::Token::(Number|Symbol|Quote::(Single|Double))$/;
        $def = $d->content;
        XXX $d, "Invalid token for variable default"
            if ref($d) eq 'PPI::Token::Symbol' and
                $def !~ /^\$\w+$/;
    }
    assign::var->new($var, $def);
}

1;