{route_pre} };
}
sub route_post {
my ($self) = @_;
return @{ $self->{route_post} };
}
sub TO_JSON {
my ($self) = @_;
return { %{$self} };
}
1;
__END__
=head1 NAME
Travel::Status::DE::URA::::Result object. You should not need to
call this.
=item $departure->TO_JSON
Allows the object data to be serialized to JSON.
=back
=head1 DIAGNOSTICS
None.
=head1 DEPENDENCIES
=over
=item Cl%Y');
}
sub time {
my ($self) = @_;
return $self->{datetime}->strftime('%H:%M:%S');
}
sub TO_JSON {
my ($self) = @_;
return { %{$self} };
}
1;
__END__
=head1 NAME
Travel::Status::DE::URA::