Sub-Params

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Exporter" : "0",
            "Hash::Util" : "0",
            "Ref::Util" : "0",
            "perl" : "5.006"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/gooddata/perl-sub-params/issues"
      },
      "repository" : {

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Sub-Params
no_index:
  directory:
    - t
    - inc
requires:
  Exporter: '0'
  Hash::Util: '0'
  Ref::Util: '0'
  perl: '5.006'
resources:
  bugtracker: https://github.com/gooddata/perl-sub-params/issues
  repository: git://github.com/gooddata/perl-sub-params.git
version: v1.0.0

Makefile.PL  view on Meta::CPAN

    MIN_PERL_VERSION => '5.006',
    CONFIGURE_REQUIRES => {
        'ExtUtils::MakeMaker' => '0',
    },
    BUILD_REQUIRES => {
        'Test::More' => '0',
        'Test::Deep' => '0',
        'Test::Warnings' => '0',
    },
    PREREQ_PM => {
        'Ref::Util' => '0',
        'Hash::Util' => '0',
        'Exporter' => '0',
    },
    macro => { TARFLAGS => '--format=ustar -cvf' },
    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean => { FILES => 'Sub-Params-*' },
    META_MERGE => {
        'meta-spec' => {
            version => 2,
        },

lib/Sub/Params.pm  view on Meta::CPAN

use strict;
use warnings;

package Sub::Params;

our $VERSION = '1.0.0';

use parent 'Exporter';

use Hash::Util qw[];
use Ref::Util qw[ is_plain_hashref ];

our @EXPORT_OK = (
    'named_or_positional_arguments'
);

sub named_or_positional_arguments {
    my (%args) = @_;
    my $args = $args{args};
    my $names = $args{names};

t/sub-params.t  view on Meta::CPAN

# © 2017-2018 GoodData Corporation

use Test::More tests => 1 + 6;
use Test::Warnings;
use Test::Deep;

use Hash::Util qw[];
use Ref::Util qw[ is_arrayref is_hashref ];

use Sub::Params;

sub it_behaves_like_named_or_positional_arguments {
    my ($title, %params) = @_;
    Hash::Util::lock_keys %params, qw[ with_args with_names expected ];

    my @got = Sub::Params::named_or_positional_arguments(
        args => $params{with_args},
        names => $params{with_names},