view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes
MANIFEST
Makefile.PL
README
YAWriter.pm
test.pl
linux.1.xml
action.xml
cdatain.xml
directory.xml
nullin.xml
edifact03.dtd
xmlpretty

YAWriter.pm  view on Meta::CPAN

    $self->print("<!--", " ".$output." ", "-->");
}

sub encode {
    my ($self, $string) = @_;

    return &{$self->{EscSub}}($string, $self->{'Escape'});
}

sub start_cdata {
	my ($self, $cdata) = @_;
	$self->{'InCDATA'} = 1;
	$self->print(undef, '<![CDATA[', undef);
}

sub end_cdata {
	my ($self, $cdata) = @_;
	$self->{'InCDATA'} = 0;
	$self->print(undef, ']]>', undef);
}

sub print {
    my ($self, $left, $output, $right) = @_;
    my $sendbuf = "";

    if ($self->{Sendleft}) {
	$sendbuf .= $self->{'LeftSPC'};

test.pl  view on Meta::CPAN

        'PrettyWhiteNewLine' => 1,
        'PrettyWhiteIndent'  => 1,
        'CatchEmptyElement'  => 1,
        'AddHiddenAttrTab'   => 1,
        'CompactAttrIndent'  => 1
	};
   $parser->parse( 'Source' => { 'SystemId' => 'directory.xml' } );

print "ok 6\n";

   $handler->{'AsFile'} = 'cdataout.xml';
   $handler->{'Pretty'} = {
        'NoWhiteSpace' 	     => 1,
        'PrettyWhiteNewLine' => 1,
        'PrettyWhiteIndent'  => 1,
        'CatchEmptyElement'  => 1,
        'CompactAttrIndent'  => 1
	};
   $parser->parse( 'Source' => { 'SystemId' => 'cdatain.xml' } );

print "ok 7\n";

   $handler->{'AsFile'} = 'nullout.xml';
   $handler->{'Pretty'} = {
        CompactAttrIndent => 1,
        NoComments => 1,
        PrettyWhiteNewline => 1,
        PrettyWhiteIndent => 1,
        NoWhiteSpace => 1,