Файловый менеджер - Редактировать - /home/.cpan/build/Spiffy-0.46-imu2do/t/mixin.t
Назад
use lib 't', 'lib'; use strict; no strict 'refs'; use warnings; package A; use Spiffy -base; field 'foo' => 17; package X; sub extra {99} package BB; use base 'X'; sub xxx {42} sub yyy {} sub _zzz {} package C; use base 'A'; use mixin 'BB'; package main; use Test::More tests => 10; my $c = C->new; ok($c->can('foo')); is($c->foo, 17); ok($c->can('extra')); is($c->extra, 99); ok($c->can('xxx')); is($c->xxx, 42); ok(not $c->can('_zzz')); is(@{C::ISA}, 1); is(${C::ISA}[0], 'C-BB'); is(${"C-BB::ISA"}[0], 'A');
| ver. 1.4 |
Github
|
.
| PHP 5.6.40 | Генерация страницы: 0.01 |
proxy
|
phpinfo
|
Настройка