File Coverage

blib/lib/Net/TacacsPlus.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Net::TacacsPlus;
2              
3             =head1 NAME
4              
5             Net::TacacsPlus - Tacacs+ library
6              
7             =head1 SYNOPSYS
8              
9             use Net::TacacsPlus qw{ tacacs_client };
10            
11             my $client = tacacs_client(
12             'host' => 'tacacs.server',
13             'key' => 'secret',
14             );
15              
16             =head1 DESCRIPTION
17              
18             Tacacs+ client implemented by L.
19              
20             =cut
21              
22             our $VERSION = '1.10_01';
23              
24 1     1   27157 use strict;
  1         3  
  1         41  
25 1     1   5 use warnings;
  1         2  
  1         36  
26              
27 1     1   479 use Net::TacacsPlus::Client 1.06;
  1         31  
  1         12  
28              
29 1     1   51 use Exporter;
  1         3  
  1         70  
30 1     1   22 use 5.006;
  1         4  
  1         164  
31              
32             our @ISA = ('Exporter');
33             our @EXPORT_OK = ('tacacs_client');
34              
35             =head1 FUNCTIONS
36              
37             =over 4
38              
39             =item tacacs_client(@arg)
40              
41             Returns L object created with @arg.
42              
43             =cut
44              
45             sub tacacs_client {
46 1     1 1 12 my @arg = @_;
47            
48 1         14 return Net::TacacsPlus::Client->new(@arg);
49             }
50              
51             =back
52              
53             =cut
54              
55             1;
56              
57             =head1 AUTHOR
58              
59             Jozef Kutej - Ejkutej@cpan.orgE
60              
61             =head1 CONTRIBUTORS
62            
63             The following people have contributed to the Net::TacacsPlus by committing their
64             code, sending patches, reporting bugs, asking questions, suggesting useful
65             advises, nitpicking, chatting on IRC or commenting on my blog (in no particular
66             order):
67              
68             Rubio Vaughan
69             Derik
70             Neal Gooch
71             Douglas Christopher Wilson
72             Dibarbora Radoslav
73              
74             =head1 SEE ALSO
75              
76             tac-rfc.1.78.txt
77              
78             =head1 COPYRIGHT AND LICENSE
79              
80             Copyright (C) 2006 by Jozef Kutej
81              
82             This library is free software; you can redistribute it and/or modify
83             it under the same terms as Perl itself, either Perl version 5.8.4 or,
84             at your option, any later version of Perl 5 you may have available.
85              
86             =cut