Codebase list libauthen-tacacsplus-perl / 8fc8bca
Imported Upstream version 0.25 Florian Schlichting 8 years ago
3 changed file(s) with 24 addition(s) and 11 deletion(s). Raw diff Collapse all Expand all
33 "unknown"
44 ],
55 "dynamic_config" : 1,
6 "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630",
6 "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.142060",
77 "license" : [
88 "unknown"
99 ],
3434 }
3535 },
3636 "release_status" : "stable",
37 "version" : "0.24"
37 "version" : "0.25"
3838 }
22 author:
33 - unknown
44 build_requires:
5 ExtUtils::MakeMaker: 0
5 ExtUtils::MakeMaker: '0'
66 configure_requires:
7 ExtUtils::MakeMaker: 0
7 ExtUtils::MakeMaker: '0'
88 dynamic_config: 1
9 generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630'
9 generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.142060'
1010 license: unknown
1111 meta-spec:
1212 url: http://module-build.sourceforge.net/META-spec-v1.4.html
13 version: 1.4
13 version: '1.4'
1414 name: Authen-TacacsPlus
1515 no_index:
1616 directory:
1717 - t
1818 - inc
1919 requires: {}
20 version: 0.24
20 version: '0.25'
1616 @EXPORT_OK = qw(
1717 TACPLUS_CLIENT
1818 );
19 $VERSION = '0.24';
19 $VERSION = '0.25';
2020
2121 sub new
2222 {
4949 $h{'Key'},
5050 $h{'Timeout'} ? $h{'Timeout'} : 15
5151 );
52 $self->{'open'} = 1 if ($res >= 0);
5253 last if ($res >= 0);
5354 }
5455 }
8687
8788 sub close
8889 {
89 deinit_tac_session();
90 }
91
90 my ($self) = @_;
91
92 if ($self->{'open'})
93 {
94 deinit_tac_session();
95 $self->{'open'} = 0;
96 }
97 }
98
99 sub DESTROY
100 {
101 my ($self) = @_;
102
103 $self->close();
104 }
92105
93106
94107 sub AUTOLOAD {