/usr/lib/perl5/Devel/NYTProf/Constants.pm is in libdevel-nytprof-perl 5.06-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 | package Devel::NYTProf::Constants;
use strict;
use Devel::NYTProf::Core;
use base 'Exporter';
our @EXPORT_OK = qw(const_bits2names);
my $const_bits2names_groups;
do {
my $symbol_table = do { no strict; \%{"Devel::NYTProf::Constants::"} };
my %consts = map { $_ => $symbol_table->{$_}() } grep { /^NYTP_/ } keys %$symbol_table;
push @EXPORT_OK, keys %consts;
for my $sym (keys %consts) {
$sym =~ /^(NYTP_[A-Z]+[a-z])_/ or next;
$const_bits2names_groups->{$1}{ $consts{$sym} } = $sym;
}
};
sub const_bits2names { # const_bits2names("NYTP_FIDf",$flags)
my ($group, $bits) = @_;
my $names = $const_bits2names_groups->{$group} or return;
my @names;
for my $bit (0..31) {
my $bitval = 1 << $bit;
push @names, $names->{$bitval}
if $bits & $bitval;
}
return @names if wantarray;
return join " | ", @names;
}
# warn scalar const_bits2names("NYTP_FIDf", NYTP_FIDf_SAVE_SRC|NYTP_FIDf_IS_PMC);
#warn "Constants: ".join(" ", sort @EXPORT_OK);
1;
|