File Coverage

blib/lib/WWW/Jawbone/Up/Workout.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition	1	2	50.0
subroutine	10	10	100.0
pod	0	6	0.0
total	35	42	83.3

package WWW::Jawbone::Up::Workout;

use 5.010;
use strict;
use warnings;

use base 'WWW::Jawbone::Up::JSON';

__PACKAGE__->add_accessors(qw(title), { complete => 'is_complete' });

__PACKAGE__->add_time_accessors(qw(created updated completed));

sub time {
  my $self = shift;
  return $self->{details}{time};
}

sub distance {
  my $self = shift;
  return $self->{details}{km};
}

sub steps {
  my $self = shift;
  return $self->{details}{steps};
}

sub intensity {
  my $self = shift;
  return $self->{details}{intensity} || 'easy';
}

sub total_burn {
  my $self = shift;
  return $self->{details}{calories};
}

sub timezone {
  my $self = shift;
  return $self->{details}{tz};
}

1;