File Coverage

blib/lib/WWW/SuperMan.pm

Criterion	Covered	Total	%
statement	9	31	29.0
branch	0	6	0.0
condition			n/a
subroutine	3	7	42.8
pod	0	3	0.0
total	12	47	25.5

package WWW::SuperMan;
use Slurp;
use JSON;
use LWP::UserAgent;

our $VERSION = 0.01;

sub new {
  my($class, %cnf) = @_;
  my $self = bless {
    user => $cnf{ user },
    pass => $cnf{ pass },
    ua => LWP::UserAgent->new,
  }, $class;

  return $self;
}
sub getUserInfo {
  my ( $self ) = @_;
  my $url = 'http://api2.sz789.net:88/GetUserInfo.ashx';

  my $res = $self->{ ua }->post( $url, {
      username => $self->{user},
      password => $self->{ pass }
    }
  );

  return {} unless $res->is_success;
  return _deJson( $res );
}

sub getCode {
  my ( $self, $img_file ) = @_;
  my $url = 'http://api2.sz789.net:88/RecvByte.ashx';

  my $file = slurp( $img_file );
  my $b = unpack("H*" , $file );

  my $post = {
    username => $self->{ user },
    password => $self->{ pass },
    imgdata => $b,
    softId => '16635',
  };

  my $res = $self->{ua}->post( $url, $post );
  return {} unless $res->is_success;

  return _deJson( $res );
}


sub _deJson {
  my $res = shift;
  my $json = $res->content;
  eval {
    $json = from_json( $json );
  };

  return {} if $@;
  return $json;
}

1;

__END__