Moved stuff into a class.

Hive.pm

@@ -0,0 +1,58 @@
+package Hive;
+
+use Moose;
+use strict;
+use warnings;
+
+use LWP::Simple;
+use HTTP::Cookies;
+use HTTP::Request::Common;
+
+has username => (
+  is => 'ro',
+  isa => 'Str',
+  required => 1,
+);
+
+has password => (
+  is => 'ro',
+  isa => 'Str',
+  required => 1,
+);
+
+has ua => (
+  is => 'ro',
+  isa => 'LWP::UserAgent',
+  lazy_build => 1,
+);
+
+sub _build_ua {
+  my $self = shift;
+
+  LWP::UserAgent->new(
+    cookie_jar => HTTP::Cookies->new,
+  );
+}
+
+has base_url => (
+  is => 'ro',
+  isa => 'Str',
+  default => 'https://api.hivehome.com/v5/',
+);
+
+sub BUILD {
+  my $self = shift;
+
+  my $req = POST $self->base_url . '/login',
+               [ username => $self->username, password => $self->password ];
+  $self->ua->request($req);
+}
+
+sub get_user {
+  my $self = shift;
+
+  my $req = GET $self->base_url . '/users/'. $self->username;
+  return $self->ua->request($req)->as_string;
+}
+
+1;

gettemp

@@ -4,21 +4,13 @@ use strict;
 use warnings;
 use 5.010;
 
-use LWP::Simple;
-use HTTP::Cookies;
-use HTTP::Request::Common;
-
-my $base_url = 'https://api.hivehome.com/v5/';
+use Hive;
 
 my ($user, $pass) = @ARGV;
 
-my $ua = LWP::UserAgent->new(
-  cookie_jar => HTTP::Cookies->new,
-);
-
-my $req = POST "$base_url/login",
-               [ username => $user, password => $pass ];
-say $ua->request($req)->as_string;
+my $hive = Hive->new({
+  username => $user,
+  password => $pass,
+});
 
-$req = GET "$base_url/users/$user";
-say $ua->request($req)->as_string;
+say $hive->get_user;