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