Файловый менеджер - Редактировать - /home/.cpan/build/Spiffy-0.46-imu2do/t/mixin2.t
Назад
use lib 't', 'lib'; use Spiffy (); package A; sub _role_a { qw(a1 a2 a3) } sub a1 {'a1' } sub a2 {'a2' } sub a3 {'a3' } sub _role_A { qw(A1 A2 A3) } sub A1 {'A1' } sub A2 {'A2' } sub A3 {'A3' } sub _role_aA { qw(:a :A foo) } sub foo {'foo'} package BB; use base 'A'; package X; use mixin A => qw(:a !a2); package X2; use mixin BB => qw(:a !a2); package X3; use mixin A => qw(!:A A2); package X4; use mixin A => qw(:aA !a1 !a1 !A1); package X5; use mixin A => qw(!:a !:A); package main; use Test::More tests => 32; ok(X->can('a1')); ok(not X->can('a2')); ok(X->can('a3')); ok(not X->can('A1')); is(X->a1, 'a1'); is(X->a3, 'a3'); ok(X2->can('a1')); ok(not X2->can('a2')); ok(X2->can('a3')); ok(not X2->can('A1')); is(X2->a1, 'a1'); is(X2->a3, 'a3'); ok(X3->can('a1')); ok(X3->can('a2')); ok(X3->can('a3')); ok(not X3->can('A1')); ok(X3->can('A2')); ok(not X3->can('A3')); ok(not X4->can('a1')); ok(X4->can('a2')); ok(X4->can('a3')); ok(not X4->can('A1')); ok(X4->can('A2')); ok(X4->can('A3')); ok(X4->can('foo')); ok(not X5->can('a1')); ok(not X5->can('a2')); ok(not X5->can('a3')); ok(not X5->can('A1')); ok(not X5->can('A2')); ok(not X5->can('A3')); ok(X5->can('foo'));
| ver. 1.4 |
Github
|
.
| PHP 5.6.40 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка