File Coverage

blib/lib/Mic/ArrayImpl.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	25	29	86.2

package Mic::ArrayImpl;

use Readonly;
require Mic::Implementation;

our @ISA = qw( Mic::Implementation );

sub update_args {
    my ($class, $arg) = @_;

    $arg->{arrayimp} = 1;
}

sub add_attribute_syms {
    my ($class, $arg, $stash) = @_;

    my @slots = (
        keys %{ $arg->{has} },
    );
    my %seen_attr;
    foreach my $i ( 0 .. $#slots ) {
        next if exists $seen_attr{ $slots[$i] };

        $seen_attr{ $slots[$i] }++;
        $class->add_sym($arg, $stash, $slots[$i], $i);
    }
}

sub add_sym {
    my ($class, $arg, $stash, $slot, $i) = @_;

    Readonly my $sym_val => $i;
    $arg->{slot_offset}{$slot} = $sym_val;

    $stash->add_symbol(
        sprintf('$%s', uc $slot),
        \ $sym_val
    );
    $stash->add_symbol(
        sprintf('&%s', uc $slot),
        sub () { $sym_val }
    );
}

1;

__END__