1. Perl / Говнокод #13045

    −158

    1. 1
    2. 2
    3. 3
    4. 4
    $root->SOAP::Data::name eq 'schema' ? do { # add <types> element if there is no one
        $s->set_value($s->value, $self->deserializer->deserialize('<types></types>')->root) unless $s->types;
        $s->types->set_value($s->types->value, $root) } :
        die "Don't know what to do with '@{[$root->SOAP::Data::name]}' in schema imported from '$location'\n";

    SOAP::Lite, епт. Весь модуль такой

    http://search.cpan.org/~phred/SOAP-Lite-0.716/lib/SOAP/Lite.pm

    Запостил: Elvenfighter, 24 Мая 2013

    Комментарии (2) RSS

    Добавить комментарий