File Coverage

blib/lib/Method/Cached/KeyRule.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	10	10	100.0
condition			n/a
subroutine	9	9	100.0
pod	0	5	0.0
total	60	65	92.3

package Method::Cached::KeyRule;

use strict;
use warnings;
use Scalar::Util;

{
    no strict 'refs';

    sub regularize {
        my $key_rule = shift;
        my $ref = ref $key_rule;
        $ref || return &{$key_rule || 'LIST'}(@_);
        $ref eq 'CODE' && return $key_rule->(@_);
        my $key;
        for my $rule (@{$key_rule}) {
            $key = ref $rule ? $rule->(@_) : &{$rule}(@_);
        }
        return $key;
    }
}

sub SELF_SHIFT {
    my ($method_name, $args) = @_;
    shift @{$args};
    return;
}

sub PER_OBJECT {
    my ($method_name, $args) = @_;
    $args->[0] = Scalar::Util::refaddr $args->[0];
    return;
}

sub LIST {
    my ($method_name, $args) = @_;
    local $^W = 0;
    $method_name . join chr(28), @{$args};
}

sub HASH {
    my ($method_name, $args) = @_;
    local $^W = 0;
    my ($ser, %hash) = (q{}, @{$args});
    map {
        $ser .= chr(28) . $_ . (defined $hash{$_} ? '=' . $hash{$_} : q{})
    } sort keys %hash;
    $method_name . $ser;
}

1;

__END__