File Coverage

blib/lib/Strava/GPX.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Strava::GPX;

use strict;
use warnings;

our $VERSION = 0.01;

use LWP::UserAgent;
use Geo::Gpx;

sub new {
  my ($class, $url) = @_;

  $url = URI->new($url);

  my $ua = LWP::UserAgent->new;
  my $res = $ua->get($url);

  die unless $res->code == 200;

#        {
# distance: [0.0,..],
# altitude: [1868.6,..],
# elevLow: 1812.0,
# elevHigh: 2130.6,
# latlng: [[ 1.1, 2.2],[..,..]]

  my %self;
  bless \%self, $class;
  my ($latlng) = $res->content =~ m/CourseMap.*?latlng:\s(\S+)\,/s;

  $self{latlng} = eval $latlng;

  return \%self;
}

sub to_gpx {
    my $self = shift;

    my $gpx = Geo::Gpx->new;
    my @points;
    foreach my $latlng ( @{$self->{latlng}} ) {
        push @points, { lat => $latlng->[0], lon => $latlng->[1] };
    }
    my $tracks = [ { name => $self->{url},
        segments => [ { points => \@points, } ], } ];
    $gpx->tracks($tracks);

    return $gpx->xml( '1.0' );
}

__END__