Server IP : 85.214.239.14 / Your IP : 3.129.210.36 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/self/root/proc/2/cwd/usr/share/perl/5.36/overload/ |
Upload File : |
# -*- buffer-read-only: t -*- # # lib/overload/numbers.pm # # Copyright (C) 2008 by Larry Wall and others # # You may distribute under the terms of either the GNU General Public # License or the Artistic License, as specified in the README file. # # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by regen/overload.pl. # Any changes made here will be lost! package overload::numbers; our @names = qw# () (${} (@{} (%{} (*{} (&{} (++ (-- (bool (0+ ("" (! (= (abs (neg (<> (int (< (<= (> (>= (== (!= (lt (le (gt (ge (eq (ne (nomethod (+ (+= (- (-= (* (*= (/ (/= (% (%= (** (**= (<< (<<= (>> (>>= (& (&= (&. (&.= (| (|= (|. (|.= (^ (^= (^. (^.= (<=> (cmp (~ (~. (atan2 (cos (sin (exp (log (sqrt (x (x= (. (.= (~~ (-X (qr #; our @enums = qw# fallback to_sv to_av to_hv to_gv to_cv inc dec bool_ numer string not copy abs neg iter int lt le gt ge eq ne slt sle sgt sge seq sne nomethod add add_ass subtr subtr_ass mult mult_ass div div_ass modulo modulo_ass pow pow_ass lshift lshift_ass rshift rshift_ass band band_ass sband sband_ass bor bor_ass sbor sbor_ass bxor bxor_ass sbxor sbxor_ass ncmp scmp compl scompl atan2 cos sin exp log sqrt repeat repeat_ass concat concat_ass smart ftest regexp #; { my $i = 0; our %names = map { $_ => $i++ } @names } { my $i = 0; our %enums = map { $_ => $i++ } @enums } # ex: set ro: