Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
package Travel::Status::DE::HAFAS::Location;
use strict;
use warnings;
use 5.014;
use parent 'Class::Accessor';
our $VERSION = '4.19';
Travel::Status::DE::HAFAS::Location->mk_ro_accessors(
qw(lid type name eva state lat lon distance_m weight));
sub new {
my ( $obj, %opt ) = @_;
my $loc = $opt{loc};
my $ref = {
lid => $loc->{lid},
type => $loc->{type},
name => $loc->{name},
eva => 0 + $loc->{extId},
state => $loc->{state},
lat => $loc->{crd}{y} * 1e-6,
lon => $loc->{crd}{x} * 1e-6,
# only for geosearch requests
weight => $loc->{wt},
distance_m => $loc->{dist},
};
bless( $ref, $obj );
return $ref;
}
sub TO_JSON {
my ($self) = @_;
my $ret = { %{$self} };
return $ret;
}
1;
__END__
=head1 NAME
Travel::Status::DE::HAFAS::Location - A single public transit location
=head1 SYNOPSIS
printf("Destination: %s (%8d)\n", $location->name, $location->eva);
=head1 VERSION
version 4.19
=head1 DESCRIPTION
Travel::Status::DE::HAFAS::Location describes a HAFAS location that belongs to
a stop (e.g. on a journey's route) or has been returned as part of a
locationSearch or geoSearch request.
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
=head1 METHODS
=head2 ACCESSORS
=over
=item $location->name
Location name, e.g. "Essen Hbf" or "Unter den Linden/B75, Tostedt".
=item $location->eva
EVA ID, e.g. 8000080.
=item $location->lat
Location latitude (WGS-84)
=item $location->lon
Location longitude (WGS-84)
=item $location->distance_m (geoSearch)
Distance in meters between the requested coordinates and this location.
=item $location->weight (geoSearch, locationSearch)
Weight / Relevance / Importance of this location using an unknown metric.
Higher values indicate more relevant locations.
=back
=head1 DIAGNOSTICS
None.
=head1 DEPENDENCIES
=over
=item Class::Accessor(3pm)
=back
=head1 BUGS AND LIMITATIONS
None known.
=head1 SEE ALSO
Travel::Routing::DE::HAFAS(3pm).
=head1 AUTHOR
Copyright (C) 2023 by Birte Kristina Friesel E<lt>derf@finalrewind.orgE<gt>
=head1 LICENSE
This module is licensed under the same terms as Perl itself.