Gestinanna::Util 0.02

Gestinanna::Util Perl module contains utility functions.

SYNOPSIS

use Gestinanna::Util qw(:path);

my $regex = path2regex($path)
my $cmp = path_cmp($path_a, $path_b);

use Gestinanna::Util qw(:hash);

my $new_hash = deep_merge_hash(@hashes);

This module provides utility functions that have no better place to be. Sets of utility functions may be imported by specifying their tags.

:path

Imports: path2regex, path_cmp

PATHS

Paths are made up of a sub-set of the XPath language:

/

The slash (/) is the component separator. Alone, it describes the root of the
resource heirarchy.

//

The double slash (//) stands in place of any number of components (zero or more). Alone, it matches any possible path that does not specify attributes or a final component. To match any component with any attributes, use //*|//*@*.

@

The at sign (@) is the attribute separator. A path should only have one. It separates the final component from any attribute. If no attribute follows it, it stands for the general collection of attributes for an object.

|

The pipe symbol (|) separates paths which together specify a union.

&

The ampersand (&) separates paths which together specify an intersection. Intersection has higher precedence to union. For example, the path //a/* & //*@name | //b/* is considered to be (//a/* & //*@name) | //b/*, not //a/* & (//*@name | //b/*). There are no parenthesis for grouping in actual path expressions.

!

An odd number of initial bangs (!) will negate the following clause, up to a pipe (|) or ampersand (&). An even number of initial bangs will have no effect.

Examples:

The following are some examples of paths.

//*

This matches any path. Attaching attributes to this path will apply them to all objects.

//*@name

This matches the name attribute of all objects.

//*/*

This matches any component that is not at the top-level.

!//a//* & //b//*

This matches any path that has a b component and not an a component.