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
|
#
# This file is part of Audio-MPD-Common
#
# This software is copyright (c) 2007 by Jerome Quelin.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use 5.008;
use strict;
use warnings;
package Audio::MPD::Common::Stats;
our $VERSION = '1.100430';
# ABSTRACT: class representing MPD stats
use Moose;
use MooseX::Has::Sugar;
use MooseX::Types::Moose qw{ Int };
# -- public attributes
has artists => ( ro, isa=>Int, required );
has albums => ( ro, isa=>Int, required );
has songs => ( ro, isa=>Int, required );
has uptime => ( ro, isa=>Int, required );
has playtime => ( ro, isa=>Int, required );
has db_playtime => ( ro, isa=>Int, required );
has db_update => ( ro, isa=>Int, required );
1;
=pod
=head1 NAME
Audio::MPD::Common::Stats - class representing MPD stats
=head1 VERSION
version 1.100430
=head1 DESCRIPTION
The MPD server maintains some general information. Those information can
be queried with the mpd modules. Some of those information are served to
you as an L<Audio::MPD::Common::Status> object.
An L<Audio::MPD::Common::Stats> object does B<not> update itself
regularly, and thus should be used immediately.
Note: one should B<never> ever instantiate an L<Audio::MPD::Common::Stats>
object directly - use the mpd modules instead.
=head1 ATTRIBUTES
=head2 $stats->artists;
Number of artists in the music database.
=head2 $stats->albums;
Number of albums in the music database.
=head2 $stats->songs;
Number of songs in the music database.
=head2 $stats->uptime;
Daemon uptime (time since last startup) in seconds.
=head2 $stats->playtime;
Time length of music played.
=head2 $stats->db_playtime;
Sum of all song times in the music database.
=head2 $stats->db_update;
Last database update in UNIX time.
=head1 AUTHOR
Jerome Quelin
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2007 by Jerome Quelin.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__END__
|
