1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
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 {
## no critic (Variables::ProhibitUnusedVarsStricter)
( my $val1 = $_[0] ) =~ /\A-?[0-9]+(?:[Ee]\+?[0-9]+)?\z/;
}
)
)
|| (
Scalar::Util::blessed( $_[0] )
&& overload::Overloaded( $_[0] )
&& defined overload::Method( $_[0], '0+' )
&& do {
## no critic (Variables::ProhibitUnusedVarsStricter)
( my $val2 = $_[0] + 0 ) =~ /\A-?[0-9]+(?:[Ee]\+?[0-9]+)?\z/;
}
);
},
);
1;
|
