/usr/share/perl5/Catmandu/Fix/hash.pm is in libcatmandu-perl 1.0700-1.
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 | package Catmandu::Fix::hash;
use Catmandu::Sane;
our $VERSION = '1.07';
use Moo;
use namespace::clean;
use Catmandu::Fix::Has;
has path => (fix_arg => 1);
with 'Catmandu::Fix::SimpleGetValue';
sub emit_value {
my ($self, $var) = @_;
"if (is_array_ref(${var})) {" . "${var} = {\@{${var}}};" . "}";
}
1;
__END__
=pod
=head1 NAME
Catmandu::Fix::hash - creates a hash out of an array
=head1 SYNOPSIS
# tags => ['name', 'Peter', 'age', 12]
hash(tags)
# tags => {name => 'Peter', age => 12}
=head1 DESCRIPTION
This fix functions transforms array fields to hashes. The number of array
elements must be even and fields to be used as field values must be simple
strings. String fields and hash fields are left unchanged.
=head1 SEE ALSO
L<Catmandu::Fix::array>, L<Catmandu::Fix>
=cut
|