view release on metacpan or  search on metacpan

cheats.txt  view on Meta::CPAN

# Print the structure of an xml file while reading the input
perl -MXML::Simple -MData::Dumper -le '$d=XML::Simple::XMLin($ARGV[0]//die"\nSyntax: tool xmlfile\n\n"); print Dumper($d)'

# XML::Simple example
perl -Me -MXML::Simple -e 'my $xml = XML::Simple->new; say $xml->XMLout( "hey", AttrIndent => 1, NoAttr => 1, KeyAttr => [], RootName => "RootElement" )'

# Why use XML::Simple AND XML::LibXML together
perl -Me -MXML::Simple -MXML::LibXML -e 'my $x = XML::Simple->new->XMLout( "hey\f", AttrIndent => 1, NoAttr => 1, KeyAttr => [], RootName => "RootElement" ); say(XML::LibXML->load_xml( string => $x))'
:1: parser error : PCDATA invalid Char value 12
<RootElement>hey
                </RootElement>
                ^
perl -Me -MXML::Simple -MXML::LibXML -e 'my $x = XML::Simple->new->XMLout( "hey\f", AttrIndent => 1, NoAttr => 1, KeyAttr => [], RootName => "RootElement" ); say(XML::LibXML->load_xml( string => "abc"))'


#############################################################
## Perl Modules - YAML::XS
#############################################################

 view release on metacpan or  search on metacpan

lib/App/DPath.pm  view on Meta::CPAN

        }
        elsif ($outtype eq "xml")
        {
                require XML::Simple;
                my $xs = new XML::Simple;
                $output .= $xs->XMLout($resultlist, AttrIndent => 1, KeepRoot => 1);
        }
        elsif ($outtype eq "flat") {
                $output .= _format_flat( $opt, $resultlist );
        }
        else

 view release on metacpan or  search on metacpan

lib/BenchmarkAnything/Storage/Frontend/Lib.pm  view on Meta::CPAN

        }
        elsif ($outtype eq "xml")
        {
                require XML::Simple;
                my $xs = new XML::Simple;
                $output .= $xs->XMLout($data, AttrIndent => 1, KeepRoot => 1);
        }
        elsif ($outtype eq "flat") {
                $output .= $self->_format_flat( $data, $opt );
        }
        else

 view release on metacpan or  search on metacpan

lib/Dancer/Serializer/XML.pm  view on Meta::CPAN

config file:

   engines:
      XMLSerializer:
        serialize:
           AttrIndent: 1
        deserialize:
           ForceArray: 1

=head1 AUTHOR

 view release on metacpan or  search on metacpan

lib/Dancer2/Serializer/XML.pm  view on Meta::CPAN

our $VERSION = '0.06';

has '+content_type' => ( default => sub {'application/xml'} );
has 'xml_options' => 
( 
	default => sub { {RootName => 'data', KeyAttr => [], AttrIndent => 1} },
	is => 'rw'
);

sub BUILD
{

lib/Dancer2/Serializer/XML.pm  view on Meta::CPAN

In config:

   engines:
      serializer:
        serialize:
           AttrIndent: 1
           KeyAttr: []
        deserialize:
           ForceArray: 1
           KeyAttr: []
           ForceContent: 1

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DBI.pm  view on Meta::CPAN

    	
	} else {
	    
	    # Assume we're loading an XML
	    my $xml_cfg = XML::Simple->new(
            AttrIndent          => TRUE,                    # XML formatting option - doesn't affect performance
            OutputFile          => $self->{xml_file},
            KeyAttr             => [ ]                      # Stops XML::Simple from squishing some data structures
        );
        
        $self = $xml_cfg->XMLin( $req );

 view release on metacpan or  search on metacpan

lib/Gtk3/Ex/DBI/Form.pm  view on Meta::CPAN

        
    } else {
        
        # Assume we're loading an XML
        my $xml_cfg = XML::Simple->new(
            AttrIndent          => TRUE,                    # XML formatting option - doesn't affect performance
            OutputFile          => $self->{xml_file},
            KeyAttr             => [ ]                      # Stops XML::Simple from squishing some data structures
        );
        
        $self = $xml_cfg->XMLin( $req );

 view release on metacpan or  search on metacpan

tidy-html5.c  view on Meta::CPAN

        ClearInString( pprint );
    }
    AddChar( pprint, delim );
}

static unsigned int AttrIndent( TidyDocImpl* doc, Node* node, AttVal* ARG_UNUSED(attr) )
{
  unsigned int spaces = cfg( doc, TidyIndentSpaces );
  unsigned int xtra = 2;  /* 1 for the '<', another for the ' ' */
  if ( node->element == NULL )
    return spaces;

tidy-html5.c  view on Meta::CPAN

    Bool xmlOut    = cfgBool( doc, TidyXmlOut );
    Bool xhtmlOut  = cfgBool( doc, TidyXhtmlOut );
    Bool wrapAttrs = cfgBool( doc, TidyWrapAttVals );
    unsigned int ucAttrs   = cfg( doc, TidyUpperCaseAttrs );
    Bool indAttrs  = cfgBool( doc, TidyIndentAttributes );
    unsigned int xtra      = AttrIndent( doc, node, attr );
    Bool first     = AttrNoIndentFirst( /*doc,*/ node, attr );
    tmbstr name    = attr->attribute;
    Bool wrappable = no;
    tchar c;

 view release on metacpan or  search on metacpan

lib/Insolation.pm  view on Meta::CPAN

		import $package;
	};
	die $@ if( $@ );

	my $xs   = XML::Simple->new(
		AttrIndent => 1,
		RootName   => 'Insolation',
		KeyAttr    => [ 'date' => 'name'],
		NoAttr     => 1,
	);

 view release on metacpan or  search on metacpan

lib/PDF/ReportWriter/Report.pm  view on Meta::CPAN

        #               definition      ... the top-level part of the PDF::ReportWriter object ( minus data )
        
        $file ||= $self->file();
        
        my $xml = XML::Simple->new(
                AttrIndent => 1,
                ForceArray => 1,
                KeepRoot   => 1,
                NoAttr     => 1,
                NoSort     => 1,
                RootName   => 'report',

 view release on metacpan or  search on metacpan

lib/Python/Bytecode/SAX.pm  view on Meta::CPAN

  use Python::Bytecode::SAX;
  use XML::Handler::YAWriter;
  my $handler = XML::Handler::YAWriter->new(
      AsFile => 'foo.xml',
      Pretty  => {
          CompactAttrIndent  => 1,
          PrettyWhiteIndent  => 1,
          PrettyWhiteNewline => 1,
          CatchEmptyElement  => 1
      }
  );

 view release on metacpan or  search on metacpan

lib/WebService/FuncNet/Results.pm  view on Meta::CPAN

     $self->prepare_data( $rah_data );
   
   my $xml = 
      XML::Simple::XMLout( 
         $rah_sorted_data, 
         'AttrIndent' => 1, 
         'NoAttr'     => 1,
         'RootName'   => 'results' );
   
   if ( $xml ) {
      return $xml;

 view release on metacpan or  search on metacpan

lib/Win32/Exe/Manifest.pm  view on Meta::CPAN

        ForceArray => 1,
        KeyAttr => {},
        XMLDecl => $self->default_xmldecl,
        ForceContent => 1,
        ContentKey => $self->default_content,
        # AttrIndent => 1,
    );
    return %config;
}

sub refhash { $_[0]->{_w32_exe_dataref}; }

 view release on metacpan or  search on metacpan

YAWriter.pm  view on Meta::CPAN

=item CatchWhiteSpace boolean

Catch whitespace with comments

=item CompactAttrIndent

Places Attributes on the same line as the Element

=item IsSGML boolean

 view release on metacpan or  search on metacpan

lib/XML/OPML/SimpleGen.pm  view on Meta::CPAN

	    # XML::Simple options
	    xml_options => {
	        RootName    => 'opml', 
	        XMLDecl     => '<?xml version="1.0" encoding="utf-8" ?>',
	        AttrIndent  => 1,
	    },

	    # default values for nodes
	    outline => {
	        type        => 'rss',

 view release on metacpan or  search on metacpan

lib/XML/Simple.pm  view on Meta::CPAN

Note: option names are no longer case sensitive so you can use the mixed case
versions shown here; all lower case as required by versions 2.03 and earlier;
or you can add underscores between the words (eg: key_attr).


=head2 AttrIndent => 1 I<# out - handy>

When you are using C<XMLout()>, enable this option to have attributes printed
one-per-line with sensible indentation rather than all on one line.

=head2 Cache => [ cache schemes ] I<# in - advanced>