ACIL FM

Nama	Ukuran	Aksi
lib	-	Open
00-compile.t	987 B	View DL Edit
000-report-versions-tiny.t	2.56 MB	View DL Edit
col-init.t	1.13 MB	View DL Edit
collection.t	2.83 MB	View DL Edit
expand-group.t	5.27 MB	View DL Edit
faux-export.t	2.97 MB	View DL Edit
gen-callable.t	574 B	View DL Edit
group-generator.t	3.69 MB	View DL Edit
inherited.t	613 B	View DL Edit
into-level.t	3.06 MB	View DL Edit
real-export-groupgen.t	1.86 MB	View DL Edit
real-export-href.t	4.12 MB	View DL Edit
real-export-setup.t	3.6 MB	View DL Edit
util-curry.t	1.69 MB	View DL Edit
util-currychain.t	1.68 MB	View DL Edit
util-like.t	3.03 MB	View DL Edit
util-merge.t	1.71 MB	View DL Edit
util-mixin.t	2.73 MB	View DL Edit
util-namemap.t	568 B	View DL Edit
valid-config.t	1.27 MB	View DL Edit

Edit file: /usr/share/doc/perl-Sub-Exporter/t/util-merge.t

#!/usr/bin/perl -T
use strict;
use warnings;

use Test::More tests => 8;
BEGIN { use_ok("Sub::Exporter"); }

BEGIN {
    package Thing;
    BEGIN { main::use_ok("Sub::Exporter::Util", 'merge_col'); }

use Sub::Exporter -setup => {
      collectors => [ qw(defaults etc) ],
      exports    => {
        merge_col(
          defaults => {
            stack => sub { my @x = @_; sub { return @x } },
            kcats => \'_kcats_gen',
          },
          empty    => {
            bogus => sub { my @x = @_; sub { return @x } },
            klame => sub { my @x = @_; sub { return @x } },
          },
          etc      => {
            other => sub { my @x = @_; sub { return @x } },
          },
        ),
        plain => sub { my @x = @_; sub { return @x } },
      },
    };

sub _kcats_gen {
      my @x = @_;
      sub { return reverse @x }
    }
  }

package Test::SubExporter::MERGE::0;

my %col;

BEGIN {
  Thing->import(
    defaults => ($col{defaults} = { x => 10 }),
    etc      => ($col{etc}      = { home => "Kansas" }),
    stack    => { x => 20, y => 30 },
    kcats    => {          y =>  3 },
    bogus    => undef,
    klame    => { bar => 99 },
    other    => undef,
    plain    => { foo => 10 },
  );
}

my %tests = (
  stack => [ 'Thing', 'stack', { x => 20, y => 30 }, \%col ],
  kcats => [ \%col, { x => 10, y =>  3 }, 'kcats', 'Thing' ],
  bogus => [ 'Thing', 'bogus', {}, \%col ],
  klame => [ 'Thing', 'klame', { bar => 99 }, \%col ],
  other => [ 'Thing', 'other', { home => "Kansas" }, \%col ],
  plain => [ 'Thing', 'plain', { foo  => 10 }, \%col ],
);

while (my ($name, $expected) = each %tests) {
  main::is_deeply(
    [ __PACKAGE__->$name ],
    $expected,
    "$name returned proper value",
  );
}

Batal