/usr/lib/perl5/KinoSearch1/Util/ToolSet.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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | package KinoSearch1::Util::ToolSet;
use strict;
use warnings;
use bytes;
no bytes;
use base qw( Exporter );
use Carp qw( carp croak cluck confess );
# everything except readonly and set_prototype
use Scalar::Util qw(
refaddr
blessed
dualvar
isweak
refaddr
reftype
tainted
weaken
isvstring
looks_like_number
);
use KinoSearch1 qw( K_DEBUG kdump );
use KinoSearch1::Util::VerifyArgs qw( verify_args kerror a_isa_b );
use KinoSearch1::Util::MathUtils qw( ceil );
our @EXPORT = qw(
carp
croak
cluck
confess
refaddr
blessed
dualvar
isweak
refaddr
reftype
tainted
weaken
isvstring
looks_like_number
K_DEBUG
kdump
kerror
verify_args
a_isa_b
ceil
);
1;
__END__
__COPYRIGHT__
Copyright 2005-2010 Marvin Humphrey
This program is free software; you can redistribute it and/or modify
under the same terms as Perl itself.
|