File Coverage

blib/lib/Mic/Implementation.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	11	11	100.0
pod	0	5	0.0
total	54	61	88.5

package Mic::Implementation;

use strict;
use Mic::_Guts;
use Package::Stash;
use Params::Validate qw(:all);
use Readonly;

sub import {
    my $class = shift;

    my %arg = validate(@_, {
        has         => { type => HASHREF },
        classmethod => { type => ARRAYREF, optional => 1 },
    });

    strict->import();

    $arg{-caller} = (caller)[0];
    $class->define(%arg);
}

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

    my $caller_pkg = delete $arg{-caller} || (caller)[0];
    my $stash = Package::Stash->new($caller_pkg);

    $class->update_args(\%arg);
    $class->add_attribute_syms(\%arg, $stash);

    $stash->add_symbol('%__meta__', \%arg);
    $class->install_subs($stash);
}

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

    my @slots = (
        keys %{ $arg->{has} },
        '', # semiprivate pkg
    );
    foreach my $slot ( @slots ) {
        $class->add_obfu_name($arg, $stash, $slot);
    }
}

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

    Readonly my $sym_val => sprintf(
        "%s-$slot",
       Mic::_Guts::attribute_sym($arg->{version}),
    );
    $Mic::_Guts::obfu_name{$slot} = $sym_val;

    my $prefix = '';
    if($slot eq '') {
        $prefix = '__';
    }
    else {
        $slot = uc $slot;
    }
    $stash->add_symbol(
        sprintf('$%s%s', $prefix, $slot),
        \ $sym_val
    );
}

sub update_args {}

sub install_subs {}

1;

__END__