… | … | ||
---|---|---|---|
102 | 102 | ||
103 | use MIME::Base64 (); | 103 | use MIME::Base64 (); |
104 | use Digest::HMAC_MD6 (); | 104 | use Digest::HMAC_MD6 (); |
105 | use JSON (); | 105 | use JSON (); |
106 | 106 | ||
107 | our $VERSION = '0.0'; | 107 | our $VERSION = '0.1'; |
108 | 108 | ||
109 | sub call { | 109 | sub call { |
110 | my ($self, $type, @args) = @_; | 110 | my ($self, $type, @args) = @_; |
111 | 111 | ||
112 | $self->{$type} | 112 | $self->{$type} |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |