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
|
package List::Objects::WithUtils::Hash::Inflated;
$List::Objects::WithUtils::Hash::Inflated::VERSION = '2.028003';
use strictures 2;
use Carp ();
use Scalar::Util ();
sub new {
bless +{ @_[1 .. $#_] }, $_[0]
}
sub DEFLATE { %{ $_[0] } }
our $AUTOLOAD;
sub can {
my ($self, $method) = @_;
if (my $sub = $self->SUPER::can($method)) {
return $sub
}
return unless exists $self->{$method};
sub {
my ($self) = @_;
if (my $sub = $self->SUPER::can($method)) {
goto $sub
}
$AUTOLOAD = $method;
goto &AUTOLOAD
}
}
sub AUTOLOAD {
my $self = shift;
( my $method = $AUTOLOAD ) =~ s/.*:://;
Scalar::Util::blessed($self)
or Carp::confess "Not a class method: '$method'";
Carp::confess "Can't locate object method '$method'"
unless exists $self->{$method};
Carp::confess "Accessor '$method' is read-only"
if @_;
$self->{$method}
}
sub DESTROY {}
1;
=pod
=for Pod::Coverage new can AUTOLOAD DEFLATE
=cut
|
