#!/usr/local/bin/perl -w
###########################################
# uptest - Retrieve Jawbone data
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
use strict;
use WWW::Jawbone::Up;
use DateTime::Duration;

my $email = 'user@isp.com';
my $pass  = 'changeme';

my $up = WWW::Jawbone::Up->connect(
  $email, $pass );

my $user  = $up->user();
my $score = $up->score();

print $user->name . ' walked ' . 
  $score->move->distance . 'km today', "\n";

my $dtd = DateTime::Duration->new( 
  minutes => $score->sleep->asleep()/60 );

print $user->name . " slept for ",
  $dtd->hours(), "h", int( $dtd->minutes() ), 
  "m", " last night\n";