Advanced File Manager

✏️ Mengedit: 080-multiple-modifiers.t

use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';

my @seen;

my @expected = qw/ before
                   around-before
                       orig
                   around-after
                   after         /;

my $child = Child->new();
$child->orig();
is_deeply(\@seen, \@expected, "multiple modifiers in one class");

@seen = ();
@expected = qw/ beforer around-beforer
                before  around-before
                orig
                around-after after
                around-afterer afterer /;

my $childer = Childer->new();
$childer->orig();
is_deeply(\@seen, \@expected, "multiple modifiers subclassed with multiple modifiers");

BEGIN
{
    package MyParent;
    sub new { bless {}, shift }
    sub orig
    {
        push @seen, 'orig';
    }
}

BEGIN
{
    package Child;
    our @ISA = 'MyParent';
    use Class::Method::Modifiers;

after 'orig' => sub
    {
        push @seen, 'after';
    };

around 'orig' => sub
    {
        my $orig = shift;
        push @seen, 'around-before';
        $orig->();
        push @seen, 'around-after';
    };

before 'orig' => sub
    {
        push @seen, 'before';
    };
}

BEGIN
{
    package Childer;
    our @ISA = 'Child';
    use Class::Method::Modifiers;

after 'orig' => sub
    {
        push @seen, 'afterer';
    };

around 'orig' => sub
    {
        my $orig = shift;
        push @seen, 'around-beforer';
        $orig->();
        push @seen, 'around-afterer';
    };

before 'orig' => sub
    {
        push @seen, 'beforer';
    };
}

done_testing;

❌ Batal

Nama	Ukuran	Dimodifikasi	Permission	Aksi
📎 00-report-prereqs.dd	9.8 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 00-report-prereqs.t	6 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 000-load.t	310 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 001-error.t	1010 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 002-cache.t	2 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 003-basic.t	2.1 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 004-around.t	1.3 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 005-return.t	457 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 010-before-args.t	691 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 011-after-args.t	773 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 012-around-args.t	735 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 020-multiple-inheritance.t	3.5 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 030-multiple-before.t	633 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 031-multiple-after.t	626 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 032-multiple-around.t	863 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 034-multiple-everything.t	1.3 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 035-multiple-everything-twice.t	2.3 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 040-twice-orig.t	491 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 041-modify-parent.t	998 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 051-undef-list-ctxt.t	916 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 060-caller.t	1.2 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 070-modify-multiple-at-once.t	971 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 080-multiple-modifiers.t	1.6 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 081-sub-and-modifier.t	3.1 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 090-diamond.t	683 B	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 100-class-mop-method-modifiers.t	2 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 110-namespace-clean.t	1.6 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 120-fresh.t	2.4 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 130-clean-underscore.t	1.8 KB	2019-08-10 00:18	0644	✏️ Edit ⬇
📎 140-lvalue.t	2 KB	2019-08-10 00:18	0644	✏️ Edit ⬇

📂 Advanced File Manager

✏️ Mengedit: 080-multiple-modifiers.t

✍️ Rename: