File Coverage

blib/lib/WebService/Strava/Athlete/Segment_Effort.pm

Criterion	Covered	Total	%
statement	39	69	56.5
branch	0	14	0.0
condition			n/a
subroutine	15	19	78.9
pod	0	1	0.0
total	54	103	52.4

package WebService::Strava::Athlete::Segment_Effort;

use v5.010;
use strict;
use warnings;
use Moo;
use Method::Signatures;
use Scalar::Util qw(looks_like_number);
use Carp qw(croak);
use Scalar::Util::Reftype;
use experimental 'switch';
use Data::Dumper;

# ABSTRACT: A Strava Segment Effort Object

our $VERSION = '0.04'; # VERSION: Generated by DZP::OurPkg:Version


# Validation functions

my $Ref = sub {
  croak "auth isn't a 'WebService::Strava::Auth' object!" unless reftype( $_[0] )->class eq "WebService::Strava::Auth";
};

my $Bool = sub {
  croak "$_[0] must be 0|1" unless $_[0] =~ /^[01]$/;
};

my $Num = sub {
  croak "$_[0] isn't a valid id" unless looks_like_number $_[0];
};

# Debugging hooks in case things go weird. (Thanks @pjf)

around BUILDARGS => sub {
  my $orig  = shift;
  my $class = shift;

  if ($WebService::Strava::DEBUG) {
    warn "Building task with:\n";
    warn Dumper(\@_), "\n";
  }

  return $class->$orig(@_);
};

# Authentication Object
has 'auth'            => ( is => 'ro', required => 1, isa => $Ref );

# Defaults + Required
has 'id'                      => ( is => 'ro', required => 1, isa => $Num);
has '_build'                  => ( is => 'ro', default => sub { 1 }, isa => $Bool );

# Segment Effort
has 'name'                    => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'resource_state'          => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'activity'                => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'elapsed_time'            => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'moving_time'             => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'start_date'              => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'start_date_local'        => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'distance'                => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'start_index'             => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'end_index'               => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'average_cadence'         => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'average_watts'           => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'average_heartrate'       => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'max_heartrate'           => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'segment'                 => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'kom_rank'                => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'pr_rank'                 => ( is => 'ro', lazy => 1, builder => '_build_effort' );
has 'hidden'                  => ( is => 'ro', lazy => 1, builder => '_build_effort' );

sub BUILD {
  my $self = shift;

  if ($self->{_build}) {
    $self->_build_effort();
  }
  return;
}

method _build_effort() {
  my $effort = $self->auth->get_api("/segment_efforts/$self->{id}");

  foreach my $key (keys %{ $effort }) {
    given ( $key ) {
      when      (/athlete/)   { $self->_instantiate("Athlete", $key, $effort->{$key}); }
      when      (/segment/)   { $self->_instantiate("Segment", $key, $effort->{$key}); }
      default                 { $self->{$key} = $effort->{$key}; }
    }
  }

  return;
}

use WebService::Strava::Athlete;
use WebService::Strava::Segment;

method _instantiate($type, $key, $data) {
  $self->{$key} = "WebService::Strava::$type"->new(auth => $self->auth, id => $data->{id}, _build => 0);
  return;
}


method retrieve() {
  $self->_build_effort();
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

WebService::Strava::Athlete::Segment_Effort - A Strava Segment Effort Object

=head1 VERSION

version 0.04

=head1 SYNOPSIS

  my $effort = WebService::Strava::Athlete::Segment_Effort->new( auth => $auth, id => '229781' );

=head1 DESCRIPTION

  Upon instantiation will retrieve the segment effort matching
  the id. Requires a pre-authenticated WebService::Strava::Auth
  object.

=head1 METHODS

=head2 retrieve()

  $effort->retrieve();

When a Effort object is lazy loaded, you can call retrieve it by calling
this method.

=head1 AUTHOR

Leon Wright < [e-mail] >

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Leon Wright.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut