File Coverage

blib/lib/Net/Transmission.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             #$Id: Transmission.pm 640 2009-11-13 15:25:11Z zag $
2              
3             package Net::Transmission;
4              
5 1     1   21020 use strict;
  1         2  
  1         34  
6 1     1   5 use warnings;
  1         1  
  1         23  
7 1     1   1763 use Collection;
  0            
  0            
8             our @ISA = ();
9             use Carp;
10             use 5.005;
11              
12             =head1 NAME
13              
14             Net::Transmission - Perl interface to Transmission
15              
16             =head1 SYNOPSIS
17              
18             use Net::Transmission;
19              
20             =head1 ABSTRACT
21            
22             Transmission is a cross-platform BitTorrent client.
23              
24             =head1 DESCRIPTION
25              
26             Net::Transmission - Perl interface to Transmission.
27              
28             =cut
29              
30              
31             our $VERSION = '0.01_03';
32             my $attrs = {
33             _cli => undef,
34             };
35             ### install get/set accessors for this object.
36             for my $key ( keys %$attrs ) {
37             no strict 'refs';
38             *{ __PACKAGE__ . "::$key" } = sub {
39             my $self = shift;
40             $self->{$key} = $_[0] if @_;
41             return $self->{$key};
42             }
43             }
44             1;
45             =head1 METHODS
46              
47             =cut
48              
49             =head1 SEE ALSO
50              
51             L
52              
53             =head1 AUTHOR
54              
55             Zahatski Aliaksandr, Ezag@cpan.orgE
56              
57             =head1 COPYRIGHT AND LICENSE
58              
59             Copyright 2009 by Zahatski Aliaksandr
60              
61             This library is free software; you can redistribute it and/or modify
62             it under the same terms as Perl itself.
63              
64             =cut