1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
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__
=pod
=head1 NAME
Object::Lazy::Ref - Simulation of C<ref $object> for Object::Lazy
=head1 VERSION
0.12
=head1 SYNOPSIS
use Object::Lazy::Ref;
Object::Lazy::Ref::register($object);
=head1 DESCRIPTION
Simulation of C<ref $obj> for Object::Lazy
=head1 SUBROUTINES/METHODS
=head2 sub register
switch on the simulation.
Object::Lazy::Ref::register($object);
=head1 DIAGNOSTICS
nothing
=head1 CONFIGURATION AND ENVIRONMENT
nothing
=head1 DEPENDENCIES
L<Carp|Carp>
=head1 INCOMPATIBILITIES
This module will change *CORE::GLOBAL::ref premanently.
If a call of sub ref not matched with an registered Object::Lazy object
the *CORE::GLOBAL::ref will be restored during call
and will fall back after that.
When another programm decided to change *CORE::GLOBAL::ref permanently
it has to fallback to the old *CORE::GLOBAL::ref too.
This is than the Object::Lazy one.
When it bails out to CORE::ref, the pipe is broken.
=head1 BUGS AND LIMITATIONS
not known
=head1 AUTHOR
Steffen Winkler
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2007 - 2012,
Steffen Winkler
C<< <steffenw at cpan.org> >>.
All rights reserved.
This module is free software;
you can redistribute it and/or modify it
under the same terms as Perl itself.
|
