HEX
Server: Apache/2.4.57 (Unix) OpenSSL/1.1.1k
System: Linux tam.zee-supreme-vps.net 4.18.0-513.9.1.el8_9.x86_64 #1 SMP Sat Dec 2 05:23:44 EST 2023 x86_64
User: adltc (1070)
PHP: 7.4.33
Disabled: NONE
Upload Files
File: //usr/share/doc/perl-namespace-clean/t/03-unimport.t
use warnings;
use strict;

use lib 't/lib';
use Test::More tests => 6;

use_ok('Unimport');

ok( !Unimport->can('foo'),
    'first function correctly removed' );
ok( Unimport->can('bar'),
    'excluded method still in package' );
ok( !Unimport->can('baz'),
    'second function correctly removed' );
ok( Unimport->can('qux'),
    'last method still in package' );
is( Unimport->qux, 23,
    'all functions are still bound' );