ものすごい適当につくってみた。 package Net::Wassr; use strict; use warnings; use LWP::UserAgent; use JSON::Any; use Encode; our $VERSION = '0.01'; sub new { my $class = shift; my %args = @_; $args{apiurl} ||= 'http://api.wassr.jp'; $args{apihost} ||= 'api.wassr.jp:80'; $args{apirealm} ||= 'API Authentication'; $args{user} ||= ''; $args{passwd} ||= ''; $args{source} ||= 'Net::Wassr'; $args{ua} ||= LWP::UserAgent-