diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-01-08 18:16:37 +0100 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-01-08 18:16:37 +0100 |
commit | 79d3d039567fbf37e66015efc4a973ba9e8ca272 (patch) | |
tree | 8382ecf6aa11178d3c50e19ce37bc11e7c1c2dbe /lib/Travel/Status/DE | |
parent | 84ebea9479398b5600a592b478556af04779ae39 (diff) |
DB HAFAS (and, thus, ::DeutscheBahn) is no more
Diffstat (limited to 'lib/Travel/Status/DE')
-rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn.pm | 106 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 2 |
2 files changed, 1 insertions, 107 deletions
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm deleted file mode 100644 index 55a8061..0000000 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ /dev/null @@ -1,106 +0,0 @@ -package Travel::Status::DE::DeutscheBahn; - -use strict; -use warnings; -use 5.014; - -use parent 'Travel::Status::DE::HAFAS'; - -our $VERSION = '6.15'; - -sub new { - my ( $class, %opt ) = @_; - - $opt{service} = 'DB'; - - return $class->SUPER::new(%opt); -} - -1; - -__END__ - -=head1 NAME - -Travel::Status::DE::DeutscheBahn - Interface to the online arrival/departure -monitor operated by Deutsche Bahn - -=head1 SYNOPSIS - - use Travel::Status::DE::DeutscheBahn; - - my $status = Travel::Status::DE::DeutscheBahn->new( - station => 'Essen Hbf', - ); - - if (my $err = $status->errstr) { - die("Request error: ${err}\n"); - } - - for my $departure ($status->results) { - printf( - "At %s: %s to %s from platform %s\n", - $departure->datetime->strftime('%H:%M'), - $departure->line, - $departure->destination, - $departure->platform, - ); - } - -=head1 VERSION - -version 6.15 - -=head1 DESCRIPTION - -Travel::Status::DE::DeutscheBahn is an interface to the Deutsche Bahn -departure monitor available at -L<https://reiseauskunft.bahn.de/bin/mgate.exe>. - -It takes a station name and (optional) date and time and reports all arrivals -or departures at that station starting at the specified point in time (now if -unspecified). - -=head1 METHODS - -=over - -=item my $status = Travel::Status::DE::DeutscheBahn->new(I<%opts>) - -Requests the departures/arrivals as specified by I<opts> and returns a new -Travel::Status::DE::HAFAS element with the results. Dies if the wrong -I<opts> were passed. - -Calls Travel::Status::DE::HAFAS->new with service = DB. All I<opts> are passed -on. Please see Travel::Status::DE::HAFAS(3pm) for I<opts> documentation -and other methdos. - -=back - -=head1 DIAGNOSTICS - -See Travel::Status::DE::HAFAS(3pm). - -=head1 DEPENDENCIES - -=over - -=item * Travel::Status::DE::HAFAS(3pm) - -=back - -=head1 BUGS AND LIMITATIONS - -See Travel::Status::DE::HAFAS(3pm). - -=head1 SEE ALSO - -Travel::Status::DE::HAFAS(3pm). - -=head1 AUTHOR - -Copyright (C) 2015-2022 by Birte Kristina Friesel E<lt>derf@finalrewind.orgE<gt> - -=head1 LICENSE - -This module is licensed under the same terms as Perl itself. diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index b73a2a8..e71e9f0 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -1204,7 +1204,7 @@ of this module's features. Set B<hafas=>I<service> to use a specific service. =head1 AUTHOR -Copyright (C) 2015-2024 by Birte Kristina Friesel E<lt>derf@finalrewind.orgE<gt> +Copyright (C) 2015-2025 Birte Kristina Friesel E<lt>derf@finalrewind.orgE<gt> =head1 LICENSE |