/usr/lib/perl5/KinoSearch1/Util/ToStringUtils.pm is in libkinosearch1-perl 1.00-1build3.
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 | package KinoSearch1::Util::ToStringUtils;
use strict;
use warnings;
use KinoSearch1::Util::ToolSet;
use base qw( Exporter );
our @EXPORT_OK = qw( boost_to_string );
# return a stringified numerical boost if it actually does anything.
sub boost_to_string {
my $boost = shift;
return $boost == 1 ? '' : "^$boost";
}
1;
__END__
=begin devdocs
=head1 NAME
KinoSearch1::Util::ToStringUtils - common routines which aid stringification
=head1 DESCRIPTION
Provide functions which help with to_string.
=head1 COPYRIGHT
Copyright 2005-2010 Marvin Humphrey
=head1 LICENSE, DISCLAIMER, BUGS, etc.
See L<KinoSearch1> version 1.00.
=end devdocs
=cut
|