Object-Hybrid
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Object/Hybrid.pm view on Meta::CPAN
#sub can { $_[0]->UNIVERSAL::can($_[1]) }
Object::Hybrid->methods({
tied => sub { undef },
fast => sub { $_[0] },
self => sub { $_[0] },
TIESCALAR => sub {
my $class = shift;
my $instance = shift || undef;
return bless \$instance => $class;
},
FETCH => sub { ${$_[0]} },
STORE => sub { ${$_[0]} = $_[1] },
});
CLASS
}
sub LOAD_ARRAY_UNTIED { $_[0]->_compile_class(<<'CLASS', $_[1]);
view all matches for this distributionview release on metacpan - search on metacpan
( run in 5.244 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-48ebf85a1963 )