File Coverage

blib/lib/Geo/Google/Segment.pm

Criterion	Covered	Total	%
statement	15	38	39.4
branch	0	2	0.0
condition			n/a
subroutine	5	16	31.2
pod	0	11	0.0
total	20	67	29.8

package Geo::Google::Segment;
use strict;
use warnings;
use Data::Dumper;
use URI::Escape;
our $VERSION = '0.04-rc3';

use constant FMT => <<_FMT_;
%s
_FMT_

sub new {
  my $class = shift;
  my %arg = @_;
  my $self = bless \%arg, $class;
}

sub from       { return shift->{'from'} }
sub distance   { return shift->{'distance'} }
sub id         { return shift->{'id'} }
sub pointIndex { return shift->{'pointIndex'} }
sub points     { my $self = shift; return $self->{'points'} ? @{ $self->{'points'} } : () }
sub html       { return shift->{'html'} }
sub text       { my $self = shift; $_ = $self->html(); s## #g; s#\s+# #g; s# ([,:])#$1#g; s#^\s*(.+?)\s*$#$1#; $_ }
sub time       { return shift->{'time'} }
sub to         { return shift->{'to'} }

sub toXML {
  my $self = shift;
  return sprintf( FMT,
    $self->distance(),
    $self->id(),
    $self->pointIndex(),
    $self->time(),
    $self->text(),
  );
}

1;
__END__