Initial Commit

database/perl/vendor/lib/Specio/Library/Numeric.pm

@@ -0,0 +1,218 @@
+package Specio::Library::Numeric;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.46';
+
+use parent 'Specio::Exporter';
+
+use Specio::Declare;
+use Specio::Library::Builtins;
+
+declare(
+    'PositiveNum',
+    parent => t('Num'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s > 0
+)
+EOF
+    },
+);
+
+declare(
+    'PositiveOrZeroNum',
+    parent => t('Num'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s >= 0
+)
+EOF
+    },
+);
+
+declare(
+    'PositiveInt',
+    parent => t('Int'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s > 0
+)
+EOF
+    },
+);
+
+declare(
+    'PositiveOrZeroInt',
+    parent => t('Int'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s >= 0
+)
+EOF
+    },
+);
+
+declare(
+    'NegativeNum',
+    parent => t('Num'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s < 0
+)
+EOF
+    },
+);
+
+declare(
+    'NegativeOrZeroNum',
+    parent => t('Num'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s <= 0
+)
+EOF
+    },
+);
+
+declare(
+    'NegativeInt',
+    parent => t('Int'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s < 0
+)
+EOF
+    },
+);
+
+declare(
+    'NegativeOrZeroInt',
+    parent => t('Int'),
+    inline => sub {
+        return
+            sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
+(
+    %s
+    &&
+    %s <= 0
+)
+EOF
+    },
+);
+
+declare(
+    'SingleDigit',
+    parent => t('Int'),
+    inline => sub {
+        return
+            sprintf(
+            <<'EOF', $_[0]->parent->inline_check( $_[1] ), ( $_[1] ) x 2 );
+(
+    %s
+    &&
+    %s >= -9
+    &&
+    %s <= 9
+)
+EOF
+    },
+);
+
+1;
+
+# ABSTRACT: Implements type constraint objects for some common numeric types
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Specio::Library::Numeric - Implements type constraint objects for some common numeric types
+
+=head1 VERSION
+
+version 0.46
+
+=head1 DESCRIPTION
+
+This library provides some additional string numeric for common cases.
+
+=head2 PositiveNum
+
+=head2 PositiveOrZeroNum
+
+=head2 PositiveInt
+
+=head2 PositiveOrZeroInt
+
+=head2 NegativeNum
+
+=head2 NegativeOrZeroNum
+
+=head2 NegativeInt
+
+=head2 NegativeOrZeroInt
+
+=head2 SingleDigit
+
+A single digit from -9 to 9.
+
+=head1 SUPPORT
+
+Bugs may be submitted at L<https://github.com/houseabsolute/Specio/issues>.
+
+I am also usually active on IRC as 'autarch' on C<irc://irc.perl.org>.
+
+=head1 SOURCE
+
+The source code repository for Specio can be found at L<https://github.com/houseabsolute/Specio>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2012 - 2020 by Dave Rolsky.
+
+This is free software, licensed under:
+
+  The Artistic License 2.0 (GPL Compatible)
+
+The full text of the license can be found in the
+F<LICENSE> file included with this distribution.
+
+=cut