lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Sub/Exporter/Util.pm in javonet-ruby-sdk-2.1.11 vs lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/Sub/Exporter/Util.pm in javonet-ruby-sdk-2.1.12
- old
+ new
@@ -1,10 +1,10 @@
-use strict;
+use v5.12.0;
use warnings;
-package Sub::Exporter::Util;
+package Sub::Exporter::Util 0.991;
# ABSTRACT: utilities to make Sub::Exporter easier
-$Sub::Exporter::Util::VERSION = '0.990';
+
use Data::OptList ();
use Params::Util ();
#pod =head1 DESCRIPTION
#pod
@@ -104,11 +104,11 @@
sub {
my $next = $class;
for my $i (0 .. $#$pairs) {
my $pair = $pairs->[ $i ];
-
+
unless (Params::Util::_INVOCANT($next)) { ## no critic Private
my $str = defined $next ? "'$next'" : 'undef';
Carp::croak("can't call $pair->[0] on non-invocant $str")
}
@@ -123,51 +123,51 @@
};
}
}
# =head2 name_map
-#
+#
# This utility returns an list to be used in specify export generators. For
# example, the following:
-#
+#
# exports => {
# name_map(
# '_?_gen' => [ qw(fee fie) ],
# '_make_?' => [ qw(foo bar) ],
# ),
# }
-#
+#
# is equivalent to:
-#
+#
# exports => {
# name_map(
# fee => \'_fee_gen',
# fie => \'_fie_gen',
# foo => \'_make_foo',
# bar => \'_make_bar',
# ),
# }
-#
+#
# This can save a lot of typing, when providing many exports with similarly-named
# generators.
-#
+#
# =cut
-#
+#
# sub name_map {
# my (%groups) = @_;
-#
+#
# my %map;
-#
+#
# while (my ($template, $names) = each %groups) {
# for my $name (@$names) {
# (my $export = $template) =~ s/\?/$name/
# or Carp::croak 'no ? found in name_map template';
-#
+#
# $map{ $name } = \$export;
# }
# }
-#
+#
# return %map;
# }
#pod =head2 merge_col
#pod
@@ -340,10 +340,10 @@
Sub::Exporter::Util - utilities to make Sub::Exporter easier
=head1 VERSION
-version 0.990
+version 0.991
=head1 DESCRIPTION
This module provides a number of utility functions for performing common or
useful operations when setting up a Sub::Exporter configuration. All of the