🚀 go-pugleaf

W dniu 2011-06-04 20:11, Jarosław Lubczyński pisze:
> ... a właściwie jej brak. Niestety nie znalazłem sposobu, by w/w pakiet
> zmusić do generowania deklaracji XML czyli wiersza w stylu:
>
> <?xml version="1.0" encoding="UTF-8"?>
>
> W zasadzie zdaje się, że powinienem wywołać metodę xml_decl() ale ponoć
> jest ona oznaczona jako deprecated, a poza tym nie znalazłem opisu
> parametrów jej wywołania. [...]
>
>
> Jaka rada?
>

... Rada taka: być bardziej wytrwałym w samodzielnym poszukiwaniu 
odpowiedzi ;-).

Rozwiązanie daje kod metody XML::DOM::PerlSAX::xml_decl()

http://cpansearch.perl.org/src/ENNO/libxml-enno-1.00/lib/XML/DOM/PerlSAX.pm

I teraz już jest prosto:

package MyXml;
use base XML::SAX::Base;

sub start_document
{
     my( $self) = @_;
     my $decl =
     {
         Document   => 'xml',
         Version    => '1.0',
         Encoding   => 'UTF-8',
         Standalone => 0,
     };

     $self->SUPER::start_document();
     $self->SUPER::xml_decl( $decl);
}






-- 
Pozdrawiam
Jarek Lubczyński
(eljot<NULL>90125 at gmail dot com)
Nawiasy trójkątne z zawartością zbędne są

There are 10 kinds of people:
Those who understand binary and those who don't