Line # Revision Author
1 478 ahitrov <%once>
2
3 use JSON::XS;
4
5 </%once>
6 <%args>
7
8 $name => undef
9 $SETS => undef
10 $object => undef
11
12 </%args>
13 <%init>
14
15 return undef unless ref($SETS);
16 return undef unless $name;
17 return undef unless $SETS->{$name};
18
19 my ($prop) = grep { $_->{attr} eq $name } $object->structure;
20 my $class = $object->class;
21 my $is_extra = grep { ref $_ && $_->{attr} eq $name } $class->extra_properties ? 1 : 0;
22
23 my $result;
24 if ( $is_extra && !$prop->{serialize} ) {
25 eval { $result = JSON::XS->new->decode( $SETS->{$name} ) };
26 } else {
27 $result = $SETS->{$name};
28 }
29 warn Dumper $result;
30 return $result;
31
32 </%init>

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.