File Coverage

blib/lib/Object/Lazy/Ref.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	27	27	100.0

package Object::Lazy::Ref; ## no critic (TidyCode)

use strict;
use warnings;

our $VERSION = '0.12';

use Carp qw(croak);

my %register;

BEGIN {
    my $old_core_global_ref = *CORE::GLOBAL::ref;
    *CORE::GLOBAL::ref = sub ($) {
        my $ref = shift;

        return
            exists $register{$ref}
            ? $register{$ref}
            : do {
                local *CORE::GLOBAL::ref = $old_core_global_ref;
                ref $ref;
            };
    }
}

sub register {
    my $object = shift;

    $register{$object} = $object->{ref};

    return;
}

# $Id$

1;

__END__