ヤミRoot VoidGate

Viewing: NoInline.pm

package Specio::Library::NoInline;

use strict;
use warnings;

use parent 'Specio::Exporter';

use Specio::Declare;
use Specio::Library::Builtins;

declare(
    'IntNI',
    parent => t('Defined'),
    where  => sub {
        (
                   defined( $_[0] )
                && !ref( $_[0] )
                && (
                do {
                    ( my $val1 = $_[0] ) =~ /\A-?[0-9]+(?:[Ee]\+?[0-9]+)?\z/;
                }
                )
            )
            || (
               Scalar::Util::blessed( $_[0] )
            && overload::Overloaded( $_[0] )
            && defined overload::Method( $_[0], '0+' )
            && do {
                ( my $val2 = $_[0] + 0 ) =~ /\A-?[0-9]+(?:[Ee]\+?[0-9]+)?\z/;
            }
            );
    },
);

1;

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64