This file is indexed.

/usr/share/perl5/Transmission/Utils.pm is in libtransmission-client-perl 0.0803-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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
# ex:ts=4:sw=4:sts=4:et
package Transmission::Utils;
# See Transmission::Client for copyright statement.

=head1 NAME

Transmission::Utils - Utilies for modules that use Transmission::*

=cut

use strict;
use warnings;

use Sub::Exporter -setup => {
    exports => [qw/ from_numeric_status to_numeric_status /],
};

my %numeric_status = qw/
    1   queued
    2   checking
    4   downloading
    8   seeding
    16  stopped
/;

=head1 FUNCTIONS

=head2 from_numeric_status

 $str = from_numeric_status($int);

Will translate a numeric status description from Transmission to something
readable.

=cut

sub from_numeric_status {
    return $numeric_status{$_[0]} || q();
}

=head2 to_numeric_status

 $int = to_numeric_status($str);

Will translate a status description to a number used by Transmission.

=cut

sub to_numeric_status {
    my %tmp = reverse %numeric_status;
    return $tmp{$_[0]} || -1;
}

=head1 LICENSE

=head1 AUTHOR

See L<Transmission::Client>

=cut

1;