/usr/share/perl5/Chart/Constants.pm is in libchart-perl 2.4.4-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 | ## @file
# Constants used in Chart:\n
# PI
#
# written and maintained by
# @author Chart Group at Geodetic Fundamental Station Wettzell (Chart@fs.wettzell.de)
# @date 2012-01-06
# @version 2.4.4
#
## @class Chart::Constants
# @brief Constants class defines all necessary constants for Class Chart
#
# Defined are \n
# PI = 3.141...\n
# \n
# Usage:\n
# @code
# use Chart::Constants;
# my $pi = Chart::Constants::PI;
# @endcode
package Chart::Constants;
use strict;
# set up initial constant values
use constant PI => 4 * atan2( 1, 1 );
# be a good module
1;
|