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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
# ex:ts=4:sw=4:sts=4:et
package Transmission::AttributeRole;
# See Transmission::Client for copyright statement.
=head1 NAME
Transmission::AttributeRole - For Torrent and Client
=head1 DESCRIPTION
This role is used by L<Transmission::Client> and L<Transmission::Torrent>.
It requires the consuming class to provide the method C<read_all()>.
=cut
use Moose::Role;
=head1 ATTRIBUTES
=head2 client
$obj = $self->client;
Returns a L<Transmission::Client> object.
=cut
has client => (
is => 'ro',
isa => 'Object',
handles => { client_error => 'error' },
);
=head2 lazy_write
$bool = $self->lazy_write;
$self->lazy_write($bool);
Will prevent writeable attributes from sending a request to Transmission.
L</write_all()> can then later be used to sync data.
=cut
has lazy_write => (
is => 'rw',
isa => 'Bool',
default => 0,
);
=head2 eager_read
$bool = $self->eager_read;
Setting this attribute in constructor forces L</read_all()> to be called.
This will again populate all (or most) attributes right after the object is
constructed (if Transmission answers the request).
=cut
has eager_read => (
is => 'ro',
isa => 'Bool',
default => 0,
trigger => sub { $_[0]->read_all if($_[1]) },
);
# this method name exists to prove a point - not to be readable...
sub _convert {
if(ref $_[1] eq 'HASH') {
for my $camel (keys %{ $_[1] }) {
my $key = $_[2]->($camel);
if(ref $_[1]->{$camel} eq 'HASH') {
__PACKAGE__->_convert($_[1]->{$camel}, $_[2]);
}
$_[1]->{$key} = delete $_[1]->{$camel};
}
}
else {
return $_[2]->($_[1]);
}
}
sub _camel2Normal {
$_[0]->_convert( $_[1], sub {
local $_ = $_[0];
tr/-/_/;
s/([A-Z]+)/{ "_" .lc($1) }/ge;
return $_;
} );
}
sub _normal2Camel {
$_[0]->_convert( $_[1], sub {
local $_ = $_[0];
tr/_/-/;
s/_(\w)/{ uc($1) }/ge; # wild guess...
return $_;
} );
}
=head1 LICENSE
=head1 AUTHOR
See L<Transmission::Client>
=cut
1;
|
