FM / t

/usr/share/doc/perl-Sub-Exporter/t

Name	Size	Mode	Actions
lib/	-	0755	rm
00-compile.t	987	0644	edit dl rm
000-report-versions-tiny.t	2620	0644	edit dl rm
col-init.t	1153	0644	edit dl rm
collection.t	2902	0644	edit dl rm
expand-group.t	5400	0644	edit dl rm
faux-export.t	3044	0644	edit dl rm
gen-callable.t	574	0644	edit dl rm
group-generator.t	3774	0644	edit dl rm
inherited.t	613	0644	edit dl rm
into-level.t	3130	0644	edit dl rm
real-export-groupgen.t	1902	0644	edit dl rm
real-export-href.t	4223	0644	edit dl rm
real-export-setup.t	3683	0644	edit dl rm
util-curry.t	1735	0644	edit dl rm
util-currychain.t	1718	0644	edit dl rm
util-like.t	3104	0644	edit dl rm
util-merge.t	1752	0644	edit dl rm
util-mixin.t	2795	0644	edit dl rm
util-namemap.t	568	0644	edit dl rm
valid-config.t	1305	0644	edit dl rm

Edit: /usr/share/doc/perl-Sub-Exporter/t/util-curry.t (1735B)

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

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

BEGIN {
    package Thing;
    BEGIN { main::use_ok('Sub::Exporter::Util', 'curry_class'); }
    use Sub::Exporter -setup => {
      exports => {
        return_invocant => curry_class,
        talkback        => curry_class('return_invocant'),
      },
    };

sub new { bless { key => "value" } => $_[0] }
    sub return_invocant { return $_[0] }
  }
  
  BEGIN {
    package Thing::Subclass;
    our @ISA = qw(Thing);
  }

package Test::SubExporter::CURRY::0;

BEGIN { Thing->import(qw(return_invocant)); }

main::is(
  Thing->return_invocant,
  "Thing",
  "method call on Thing returns Thing",
);

main::is(
  Thing::Subclass->return_invocant,
  "Thing::Subclass",
  "method call on Thing::Subclass returns Thing::Subclass",
);

main::is(
  return_invocant(),
  'Thing',
  'return of method class-curried from Thing is Thing'
);

package Test::SubExporter::CURRY::1;

BEGIN { Thing::Subclass->import(qw(return_invocant)); }

main::is(
  Thing->return_invocant,
  "Thing",
  "method call on Thing returns Thing",
);

main::is(
  Thing::Subclass->return_invocant,
  "Thing::Subclass",
  "method call on Thing::Subclass returns Thing::Subclass",
);

main::is(
  return_invocant(),
  'Thing::Subclass',
  'return of method class-curried from Thing::Subclass is Thing::Subclass'
);

package Test::SubExporter::CURRY::2;

BEGIN { Thing->import(qw(talkback)); }

main::is(
  talkback(),
  'Thing',
  'imported talkback acts like return_invocant'
);

package Test::SubExporter::CURRY::Object;

BEGIN { Thing->new->import(qw(talkback)); }

main::isa_ok(
  talkback(),
  'Thing',
  'the result of object-curried talkback'
);

#!/usr/bin/perl -T use strict; use warnings; use Test::More tests => 10; BEGIN { use_ok("Sub::Exporter"); } BEGIN { package Thing; BEGIN { main::use_ok('Sub::Exporter::Util', 'curry_class'); } use Sub::Exporter -setup => { exports => { return_invocant => curry_class, talkback => curry_class('return_invocant'), }, }; sub new { bless { key => "value" } => $_[0] } sub return_invocant { return $_[0] } } BEGIN { package Thing::Subclass; our @ISA = qw(Thing); } package Test::SubExporter::CURRY::0; BEGIN { Thing->import(qw(return_invocant)); } main::is( Thing->return_invocant, "Thing", "method call on Thing returns Thing", ); main::is( Thing::Subclass->return_invocant, "Thing::Subclass", "method call on Thing::Subclass returns Thing::Subclass", ); main::is( return_invocant(), 'Thing', 'return of method class-curried from Thing is Thing' ); package Test::SubExporter::CURRY::1; BEGIN { Thing::Subclass->import(qw(return_invocant)); } main::is( Thing->return_invocant, "Thing", "method call on Thing returns Thing", ); main::is( Thing::Subclass->return_invocant, "Thing::Subclass", "method call on Thing::Subclass returns Thing::Subclass", ); main::is( return_invocant(), 'Thing::Subclass', 'return of method class-curried from Thing::Subclass is Thing::Subclass' ); package Test::SubExporter::CURRY::2; BEGIN { Thing->import(qw(talkback)); } main::is( talkback(), 'Thing', 'imported talkback acts like return_invocant' ); package Test::SubExporter::CURRY::Object; BEGIN { Thing->new->import(qw(talkback)); } main::isa_ok( talkback(), 'Thing', 'the result of object-curried talkback' );