| … | … | ||
|---|---|---|---|
| 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 |