| … | |
… | |
| 104 | |
104 | |
| 105 | use MIME::Base64 (); |
105 | use MIME::Base64 (); |
| 106 | use Digest::HMAC_MD6 (); |
106 | use Digest::HMAC_MD6 (); |
| 107 | use JSON (); |
107 | use JSON (); |
| 108 | |
108 | |
| 109 | our $VERSION = '1.0'; |
109 | our $VERSION = '1.01'; |
| 110 | |
110 | |
| 111 | sub call { |
111 | sub call { |
| 112 | my ($self, $type, @args) = @_; |
112 | my ($self, $type, @args) = @_; |
| 113 | |
113 | |
| 114 | $self->{$type} |
114 | $self->{$type} |
| … | |
… | |
| 587 | |
587 | |
| 588 | L<AnyEvent>, L<http://www.porttracker.com/>, L<http://www.infoblox.com/en/products/portiq.html>. |
588 | L<AnyEvent>, L<http://www.porttracker.com/>, L<http://www.infoblox.com/en/products/portiq.html>. |
| 589 | |
589 | |
| 590 | =head1 AUTHOR |
590 | =head1 AUTHOR |
| 591 | |
591 | |
| 592 | Marc Lehmann <marc@porttracker.net> |
592 | Marc Lehmann <marc@nethype.de> |
| 593 | |
593 | |
| 594 | =cut |
594 | =cut |
| 595 | |
595 | |
| 596 | 1 |
596 | 1 |
