Skip to content
Browse files

Add some extra modules

Make sure POD encoding is UTF-8, so that the SYNOPSIS shows up right
Fix version dep of Math::BigInt
  • Loading branch information...
1 parent 0d7a992 commit 906e91fa7a8a78aa062bcbda7f457795c3c2023a @SineSwiper committed
Showing with 17 additions and 3 deletions.
  1. +16 −2 lib/sanity.pm
  2. +1 −1 lib/sanity/BaseCalc.pm
View
18 lib/sanity.pm
@@ -292,6 +292,13 @@ my @FLAGS = (
perl5i::latest
Toolkit
),
+ # new adds
+ qw(
+ Function::Parameters
+ Function::Parameters/strict
+ Switch::Plain
+ Quote::Code
+ ),
);
my %FLAGS; # namespace abuse I know...
$FLAGS{$FLAGS[$_]} = $_ for (0 .. @FLAGS-1);
@@ -532,7 +539,7 @@ sub load_pragma {
# Specific exceptions
# (:param format for certain modules)
- @options = map { ":$_" } @options if ($module =~ /^(?:open|indirect|charnames|autodie)$/);
+ @options = map { ":$_" } @options if ($module =~ /^(?:open|indirect|charnames|autodie|Function::Parameters)$/);
# ^V = $^V (like feature)
@options = map { $_ = ($_ eq '^V') ? $VER_PACK : $_ } @options;
# remove feature/HINT/unicode
@@ -725,6 +732,8 @@ sub decode_pragmahash {
__END__
+=encoding utf-8
+
=head1 SYNOPSIS
use sanity;
@@ -917,7 +926,7 @@ fatal to older Perls. See L<https://rt.perl.org/rt3/Ticket/Display.html?id=1129
Certain pragmas really only exist to make sure the code is designed right. These
pragmas are deemed "optional" by C<sanity>. In other words, if the user doesn't
-have them, it will just silently ignore them and move on. If C<sanity> thinks your
+have them, it will just silently ignore them and move on. If C<sanity> thinks you're
an author/coder of the module itself (.git/svn/$ENV checks), it will give you a
warning that they are missing, but move on.
@@ -1112,6 +1121,11 @@ This feature was borrowed from L<strictures> and tweaked.
true
autolocale
Toolkit
+
+ Function::Parameters
+ Function::Parameters/strict
+ Switch::Plain
+ Quote::Code
Am I missing something? Let me know.
View
2 lib/sanity/BaseCalc.pm
@@ -6,7 +6,7 @@ package # hide from PAUSE
use strict;
use Carp;
-use Math::BigInt;
+use Math::BigInt 1.78; # 1.78 = round_mode => common
use Math::BigFloat;
# configure some basic big number stuff

0 comments on commit 906e91f

Please sign in to comment.
Something went wrong with that request. Please try again.