/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;
|