File Coverage

blib/lib/Mic/ArrayImpl.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	1	4	25.0
condition			n/a
subroutine	4	4	100.0
pod	0	3	0.0
total	23	31	74.1

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 = (
        '__', # semiprivate pkg
        keys %{ $arg->{has} },
        ( map {
            @{ $arg->{traits}{$_}{attributes} || []  }
          }
          keys %{ $arg->{traits} }
        ),
    );
    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
    );
}

1;

__END__