File Coverage

blib/lib/Minions/_Guts.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	2	2	100.0
condition	3	6	50.0
subroutine	3	3	100.0
pod	0	2	0.0
total	17	22	77.2

package Minions::_Guts;

use Digest::MD5 qw( md5_hex );

our %obfu_name;

sub obfu_name {
    my ($name, $spec) = @_;

    if ($spec->{no_attribute_vars} || ! $obfu_name{$name}) {
        return "-$name";
    }
    else {
        return $obfu_name{$name};
    }
}

sub attribute_sym {
    my $datum = shift || $$;

    return substr(md5_hex($datum), 0 ,8);
}

1;