view release on metacpan or  search on metacpan

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

	%   _modulo
	**  _power

	|    _bit_or
	&    _bit_and
	^    _bit_xor
	<<   _left_shift
	>>   _right_shift

	==   _equal
	!=   _not_qual
	<    _less
	<=   _less_eq
	>    _grater
	>=   _grater_eq
	<=>  _compare

	eq   _str_equal
	ne   _str_not_equal
	lt   _str_less
	le   _str_less_eq
	gt   _str_grater
	ge   _str_grater_eq
	cmp  _str_compare

	!    _not
	neg  _negate
	~    _complement

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

}
sub _left_shift{
	return Acme::Lambda::Expr::LeftShift->compose(@_);
}
sub _right_shift{
	return Acme::Lambda::Expr::RightShift->compose(@_);
}
sub _equal{
	return Acme::Lambda::Expr::Equal->compose(@_);
}
sub _not_qual{
	return Acme::Lambda::Expr::NotQual->compose(@_);
}
sub _less{
	return Acme::Lambda::Expr::Less->compose(@_);
}
sub _less_eq{
	return Acme::Lambda::Expr::LessEq->compose(@_);
}
sub _grater{
	return Acme::Lambda::Expr::Grater->compose(@_);
}
sub _grater_eq{
	return Acme::Lambda::Expr::GraterEq->compose(@_);
}
sub _compare{
	return Acme::Lambda::Expr::Compare->compose(@_);
}
sub _str_equal{
	return Acme::Lambda::Expr::StrEqual->compose(@_);
}
sub _str_not_equal{
	return Acme::Lambda::Expr::StrNotEqual->compose(@_);
}
sub _str_less{
	return Acme::Lambda::Expr::StrLess->compose(@_);
}
sub _str_less_eq{
	return Acme::Lambda::Expr::StrLessEq->compose(@_);
}
sub _str_grater{
	return Acme::Lambda::Expr::StrGrater->compose(@_);

tool/operators.pl  view on Meta::CPAN

		# bit
		_bit_or     => '|',
		_bit_and    => '&',
		_bit_xor    => '^',
		_left_shift => '<<',
		_right_shift=> '>>',

		# compare

		_equal    => '==',
		_not_qual => '!=',

		_less       => '<',
		_less_eq    => '<=',
		_grater     => '>',
		_grater_eq  => '>=',
		_compare    => '<=>',

		_str_equal      => 'eq',
		_str_not_equal  => 'ne',
		_str_less       => 'lt',
		_str_less_eq    => 'le',
		_str_grater     => 'gt',
		_str_grater_eq  => 'ge',
		_str_compare    => 'cmp',

#		'_smart_match' => '~~',
	);

	while(my($name, $binop) = splice @binops, 0, 2){