/usr/share/perl5/XML/Compile/Util.pod is in libxml-compile-perl 1.58-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | =encoding utf8
=head1 NAME
XML::Compile::Util - Utility routines for XML::Compile components
=head1 INHERITANCE
XML::Compile::Util
is a Exporter
=head1 SYNOPSIS
use XML::Compile::Util;
my $node_type = pack_type $ns, $localname;
my ($ns, $localname) = unpack_type $node_type;
=head1 DESCRIPTION
The functions provided by this package are used by various XML::Compile
components, which on their own may be unrelated.
=head1 FUNCTIONS
=head2 Constants
The following URIs are exported as constants, to avoid typing
in the same long URIs each time again: XMLNS, SCHEMA1999,
SCHEMA2000, SCHEMA2001, and SCHEMA2001i.
=head2 Packing
=over 4
=item B<pack_id>($ns, $id)
Translates the two arguments into one compact string representation of
the node id.
example:
print pack_id 'http://my-ns', 'my-id';
# shows: http://my-ns#my-id
=item B<pack_type>( [$ns], $localname )
Translates the arguments into one compact string representation of
the node type. When the $ns is not present, C<undef>, or an
empty string, then no namespace is presumed, and no curly braces
part made.
example:
print pack_type 'http://my-ns', 'my-type';
# shows: {http://my-ns}my-type
print pack_type 'my-type';
print pack_type undef, 'my-type';
print pack_type '', 'my-type';
# all three show: my-type
=item B<unpack_id>($string)
Returns a LIST of two elements: the name-space and the id, as
included in the $string. That $string must be compatible with the
result of L<pack_id()|XML::Compile::Util/"Packing">.
=item B<unpack_type>($string)
Returns a LIST of two elements: the name-space and the localname, as
included in the $string. That $string must be compatible with the
result of L<pack_type()|XML::Compile::Util/"Packing">. When no name-space is present, an empty
string is used.
=back
=head2 Other
=over 4
=item B<add_duration>( $duration, [$time] )
[1.44] Add the $duration to the $time (defaults to 'now') This is an
expensive operation: in many cases the L<duration2secs()|XML::Compile::Util/"Other"> produces
useful results as well.
example:
my $now = time;
my $deadline = add_duration 'P1M', $now; # deadline in 1 month
=item B<duration2secs>($duration)
[1.44] Translate any format into seconds. This is an example of
a valid duration: C<-PT1M30.5S> Average month and year lengths
are used. If you need more precise calculations, then use L<add_duration()|XML::Compile::Util/"Other">.
=item B<even_elements>(LIST)
Returns the even-numbered elements from the LIST.
=item B<odd_elements>(LIST)
Returns the odd-numbered elements from the LIST.
=item B<type_of_node>($node)
Translate an XML::LibXML::Node into a packed type.
=back
=head1 SEE ALSO
This module is part of XML-Compile distribution version 1.58,
built on June 27, 2017. Website: F<http://perl.overmeer.net/xml-compile/>
Please post questions or ideas to the mailinglist at
F<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/xml-compile> .
For live contact with other developers, visit the C<#xml-compile> channel
on C<irc.perl.org>.
=head1 LICENSE
Copyrights 2006-2017 by [Mark Overmeer]. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it
under the Artistic license.
See F<http://dev.perl.org/licenses/artistic.html>
|