/usr/share/perl5/Jifty/YAML.pm is in libjifty-perl 1.10518+dfsg-3ubuntu1.
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 | use warnings;
use strict;
package Jifty::YAML;
=head1 NAME
Jifty::YAML -- Wrapper around L<YAML>
=head1 DESCRIPTION
Provides a wrapper around the L<YAML> library. If the faster L<YAML::Syck>
is available, then it's used instead.
=head1 METHODS
=head2 Dump
=head2 DumpFile
=head2 Load
=head2 LoadFile
Each of the above is alias to the equivalent function in either L<YAML>
or L<YAML::Syck>.
=cut
BEGIN {
local $@;
no strict 'refs';
no warnings 'once';
if ( eval { require YAML::Syck; YAML::Syck->VERSION(0.71) } ) {
*Load = *YAML::Syck::Load;
require YAML;
# Use YAML::Dump for the moment since YAML.pm segfaults on
# reading stupidly long (~20K characters) double-quoted
# strings, and we need to produce YAML.pm-readable output.
*Dump = *YAML::Dump;
#*Dump = *YAML::Syck::Dump;
*LoadFile = *YAML::Syck::LoadFile;
*DumpFile = *YAML::Syck::DumpFile;
} else {
require YAML;
*Load = *YAML::Load;
*Dump = *YAML::Dump;
*LoadFile = *YAML::LoadFile;
*DumpFile = *YAML::DumpFile;
}
}
1;
|