File Coverage

blib/lib/assign/Hash.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	5	8	62.5
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	50	57	87.7

use strict; use warnings;
package assign::Hash;

use assign::Struct;
use base 'assign::Struct';

use XXX;

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

        if ($type eq 'PPI::Token::Symbol') {
            my $str = $tok->content;
            if ($str =~ /^\$\w+$/) {
                push @$elems, var->new($str);
                return 1;
            }
        }
        XXX $tok, "unexpected token";
    }
    return 0;
}

sub gen_code {
    my ($self, $decl, $oper, $from, $init) = @_;

    my $code = [ @$init ];
    my $elems = $self->{elems};

    if ($decl) {
        push @$code,
            "$decl(" .
            join(', ',
                map $_->val,
                @$elems
            ) .
            ');';
    }

    for my $elem (@$elems) {
        my $type = ref $elem;
        my $var = $elem->val;
        (my $key = $var) =~ s/^\$//;
        push @$code, "$var $oper $from\->{$key};";
    }

    return join "\n", @$code;
}

1;