Newer
Older
package Travel::Status::DE::HAFAS::Stop;
# vim:foldmethod=marker
use strict;
use warnings;
use 5.014;
use parent 'Class::Accessor';
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
Travel::Status::DE::HAFAS::Stop->mk_ro_accessors(
qw(eva name lat lon distance_m weight));
# {{{ Constructor
sub new {
my ( $obj, %opt ) = @_;
my $loc = $opt{loc};
my $ref = {
eva => 0 + $loc->{extId},
name => $loc->{name},
lat => $loc->{crd}{x} * 1e-6,
lon => $loc->{crd}{y} * 1e-6,
weight => $loc->{wt},
distance_m => $loc->{dist},
};
bless( $ref, $obj );
return $ref;
}
# }}}
1;
__END__
=head1 NAME
Travel::Status::DE::HAFAS::Stop - Information about a HAFAS stop.
=head1 SYNOPSIS
# in geoSearch mode
for my $stop ($status->results) {
printf(
"%5.1f km %8d %s\n",
$result->distance_m * 1e-3,
$result->eva, $result->name
);
}
=head1 VERSION
=head1 DESCRIPTION
Travel::Status::DE::HAFAS::Stop describes a HAFAS stop. It may be part of a
journey or part of a geoSearch / locationSearch request.
geoSearch- and locationSearch-specific accessors are annotated accordingly and
return undef for non-geoSearch / non-locationSearch stops.
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
128
=head1 METHODS
=head2 ACCESSORS
=over
=item $stop->name
Stop name, e.g. "Essen Hbf" or "Unter den Linden/B75, Tostedt".
=item $stop->eva
EVA ID, e.g. 8000080.
=item $stop->lat
Stop latitude (WGS-84)
=item $stop->lon
Stop longitude (WGS-84)
=item $stop->distance_m (geoSearch)
Distance in meters between the requested coordinates and this stop.
=item $stop->weight
Weight / Relevance / Importance of this stop using an unknown metric.
Higher values indicate more relevant stops.
=back
=head1 DIAGNOSTICS
None.
=head1 DEPENDENCIES
=over
=item Class::Accessor(3pm)
=back
=head1 BUGS AND LIMITATIONS
None known.
=head1 SEE ALSO
Travel::Status::DE::HAFAS(3pm).
=head1 AUTHOR
Copyright (C) 2023 by Birthe Friesel E<lt>derf@finalrewind.orgE<gt>
=head1 LICENSE
This module is licensed under the same terms as Perl itself.