Create NumberUtils module

Author: nickolasburr

Diff for: src/GitFollow/Cli/OptionsNormalizer.pm

@@ -10,7 +10,7 @@ use strict;
 use warnings;
 use Exporter qw(import);
 use GitFollow::Log qw(parse_opts);
-use GitFollow::Stdlib::Utils qw(is_numeric);
+use GitFollow::Stdlib::NumberUtils qw(is_numeric);
 
 our @EXPORT_OK = qw(
 	format

Diff for: src/GitFollow/Stdlib/NumberUtils.pm

@@ -0,0 +1,22 @@
+###
+### git-follow - Follow lifetime changes of a pathspec in Git.
+###
+### Copyright (C) 2023 Nickolas Burr <[email protected]>
+###
+package GitFollow::Stdlib::NumberUtils;
+
+use 5.008;
+use strict;
+use warnings;
+use Exporter qw(import);
+
+our @EXPORT_OK = qw(is_numeric);
+
+sub is_numeric;
+
+# Determine if value is numeric.
+sub is_numeric {
+	my $num = shift;
+	return (defined $num)
+	    ? ($num =~ /^\d+$/ ? 1 : 0) : 0;
+}