view release on metacpan or search on metacpan
# 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>