/usr/share/perl5/SHARYANTO/Scalar/Util.pm is in libsharyanto-utils-perl 0.53-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 | package SHARYANTO::Scalar::Util;
use 5.010;
use strict;
use warnings;
use Scalar::Util qw(looks_like_number);
use Exporter qw(import);
our @EXPORT_OK = qw(
looks_like_int
looks_like_float
looks_like_real
);
our $VERSION = '0.53'; # VERSION
sub looks_like_int {
my $l = looks_like_number($_[0]);
$l==1 || $l==2 || $l==9 || $l==10 || $l==4352;
}
sub looks_like_float {
my $l = looks_like_number($_[0]);
$l==4 || $l==5 || $l==6 || $l==12 || $l==13 || $l==14 ||
$l==20 || $l==28 || $l==36 || $l==44 || $l==8704;
}
sub looks_like_real {
my $l = looks_like_number($_[0]);
$l==1 || $l==2 || $l==9 || $l==10 || $l==4352 ||
$l==4 || $l==5 || $l==6 || $l==12 || $l==13 || $l==14 ||
$l==20 || $l==28 || $l==36 || $l==44 || $l==8704;
}
1;
# ABSTRACT: Scalar utilities
__END__
=pod
=encoding utf-8
=head1 NAME
SHARYANTO::Scalar::Util - Scalar utilities
=head1 VERSION
version 0.53
=head1 SYNOPSIS
use SHARYANTO::Scalar::Util qw(
looks_like_int
looks_like_float
looks_like_real
);
say looks_like_int(10); # 1, isint() also returns 1
say looks_like_int("1".("0" x 100)); # 1, isint() returns 0 here
say looks_like_int("123a"); # 0
say looks_like_float(1.1); # 1
say looks_like_float("1e2"); # 1
say looks_like_float("-Inf"); # 1
say looks_like_float(""); # 0
# either looks like int, or float
say looks_like_real(1); # 1
say looks_like_real(1.1); # 1
=head1 FUNCTIONS
=head2 looks_like_int($arg) => BOOL
Uses L<Scalar::Util>'s C<looks_like_number()> to check whether C<$arg> looks
like an integer.
=head2 looks_like_float($arg) => BOOL
Uses L<Scalar::Util>'s C<looks_like_number()> to check whether C<$arg> looks
like a floating point number.
=head2 looks_like_real($arg) => BOOL
Uses L<Scalar::Util>'s C<looks_like_number()> to check whether C<$arg> looks
like a real number (either an integer or a floating point).
None are exported by default, but they are exportable.
=head1 SEE ALSO
L<Scalar::Util>
L<Scalar::Util::Numeric>
=head1 AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DESCRIPTION
=cut
|