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]);