view release on metacpan or  search on metacpan

lib/Acme/Lambda/Expr/Method.pm  view on Meta::CPAN

	my $method   = $self->method;
	my @args     = $self->args;

	return sub{
		my $self = &{$invocant};

		$self->$method(map{ &{$_} } @args);
#		if(not defined $self){
#			Carp::croak(qq{Can't call method "$method" on an undefined value});
#		}
#		elsif(Scalar::Util::looks_like_number $self){
#			Carp::croak(qq{Can't call method "$method" without a package or object reference});
#		}
#
#		my $method_entity = $self->can($method);
#
#		if($method_entity){
#			@_ = ($self, map{ &{$_} } @args);
#			goto &{$method_entity};
#		}
#		else{

lib/Acme/Lambda/Expr/Value.pm  view on Meta::CPAN

);

sub deparse{
	my($self) = @_;
	my $value = $self->value;

	if(defined $value){
		if(ref($value)){
			# todo
		}
		elsif(Scalar::Util::looks_like_number $value){
			# noop
		}
		else{
			$value =~ s/\\/\\\\/g;
			$value =~ s/\n/\\n/g;
			$value =~ s/\r/\\r/g;
			$value =~ s/\t/\\t/g;
			$value =~ s/"/\\"/g;
			$value = qq{"$value"};
		}