One Hat Cyber Team

Your IP: 216.73.216.14
Server IP: 97.74.87.16
Server: Linux 16.87.74.97.host.secureserver.net 5.14.0-503.38.1.el9_5.x86_64 #1 SMP PREEMPT_DYNAMIC Fri Apr 18 08:52:10 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.2.28
Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Sub-Exporter/t/

View File Name : util-curry.t

#!/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'
);