Server IP : 49.212.180.16 / Your IP : 3.137.208.89 Web Server : Apache System : FreeBSD www2606.sakura.ne.jp 13.0-RELEASE-p14 FreeBSD 13.0-RELEASE-p14 #2: Mon Dec 9 13:54:55 JST 2024 root@www5301.sakura.ne.jp:/usr/obj/usr/src/amd64.amd64/sys/GENERIC amd64 User : utannto ( 1076) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /home/rs/perl/5.10/lib/perl5/5.10/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 overload.pl # 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= (. (.= (~~ DESTROY #; 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 bor bor_ass bxor bxor_ass ncmp scmp compl atan2 cos sin exp log sqrt repeat repeat_ass concat concat_ass smart DESTROY #; { my $i = 0; our %names = map { $_ => $i++ } @names } { my $i = 0; our %enums = map { $_ => $i++ } @enums }