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
60
61
62
63
64
65
66
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
128
=head1 DESCRIPTION
Travel::Status::DE::HAFAS::Stop describes a HAFAS stop. It may be part of a
journey or part of a geoSearch request.
geoSearch-specific accessors are annotated with "(geoSearch)" and return
undef for non-geoSearch stops.
=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.