Proposed sugar functions for XML::Rabbit

gistfile1.pl

# signature: $attr_name, $xpath_query, @moose_params
# isa automatically set to 'Str'
# native trait automatically set to 'String'
has_xpath_value 'name' => './name',
	...
;

# signature: $attr_name, $xpath_query, @moose_params
# isa automatically set to 'ArrayRef[Str]'
# native trait automatically set to 'Array'
has_xpath_value_list 'streets' => './street',
	...
;

# signature: $attr_name, $xpath_query, $xpath_key, $xpath_value, @moose_params
# isa automatically set to 'HashRef[Str]'
# native trait automatically set to 'Hash'
has_xpath_value_map 'employee_map' => './employees/*',
	'./@ssn' => './name',
	...
;


# signature: $attr_name, $isa(map), $xpath_query, @moose_params
# isa automatically set to 'My::Department'
has_xpath_object 'department',
	'My::Department' => './department',
	...
;

# signature: $attr_name, $isa(map), $xpath_query, @moose_params
# isa automatically set to 'My::Department|My::Team'
has_xpath_object 'department',
	{
		'department' => 'My::Department',
		'team'       => 'My::Team',
	}
	 './department|./team',
	...
;

# signature: $attr_name, $isa(map), $xpath_query, @moose_params
# isa automatically set to 'ArrayRef[My::Customer]'
# native trait automatically set to 'Array'
has_xpath_object_list 'customers',
	'My::Customer' => './customer',
	...
;

# signature: $attr_name, $isa(map), $xpath_query, @moose_params
# isa automatically set to 'ArrayRef[My::Customer|My::Partner]'
# native trait automatically set to 'Array'
has_xpath_object_list 'externals',
	{
		'customer' => 'My::Customer',
		'partner'  => 'My::Partner',
	},
	'./customer|./partner',
	...
;

# signature: $attr_name, $isa(map), $xpath_query, $xpath_key, @moose_params
# isa automatically set to 'HashRef[My::Product]'
# native trait automatically set to 'Hash'
has_xpath_object_map 'product_map' => 'My::Product',
	'./products/*' => './@code',
	...
;

# signature: $attr_name, $isa(map), $xpath_query, $xpath_key, @moose_params
# isa automatically set to 'HashRef[My::Product|My::My::Service]'
# native trait automatically set to 'Hash'
has_xpath_object_map 'merchandise_map',
        {
		'service' => 'My::Service',
		'product' => 'My::Product',
        }
	'./products/*|./services/*' => './@code',
	...
;