File Coverage

blib/lib/WWW/Opentracker/Stats/Mode/TPBS.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	20	85.0

package WWW::Opentracker::Stats::Mode::TPBS;

use strict;
use warnings;

use parent qw/
    WWW::Opentracker::Stats::Mode
    Class::Accessor::Fast
/;

use WWW::Opentracker::Stats::Mode::TPBS::Bencode;

__PACKAGE__->_format('ben');
__PACKAGE__->_mode('tpbs');

__PACKAGE__->mk_accessors(qw/_stats/);


=head1 NAME

WWW::Opentracker::Stats::Mode::TPBS

=head1 DESCRIPTION

Parses the TPBS statistics from opentracker.

=head1 METHODS

=head2 parse_stats

 Args: $self, $payload

Decodes the bencoded payload data retrieved from the TPBS statistics
of opentracker.

=cut

sub parse_stats {
    my ($self, $payload) = @_;

    return WWW::Opentracker::Stats::Mode::TPBS::Bencode->decode_stats($payload);
}


=head2 SEE ALSO

L,
L

=head1 AUTHOR

Knut-Olav Hoven, [e-mail]

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2009 by Knut-Olav Hoven

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available.


=cut

1;