From 5256d974ce44e794aae80ccda8a598daee687086 Mon Sep 17 00:00:00 2001 From: Moritz Schlarb Date: Wed, 19 Jun 2019 15:33:14 +0200 Subject: Rename MvgMainz to MM (Mainzer Mobilität) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit They renamed themselves some time ago. The URL remained the same though... --- lib/Travel/Status/DE/MM.pm | 96 ++++++++++++++++++++++++++++++++++++++++ lib/Travel/Status/DE/MvgMainz.pm | 96 ---------------------------------------- lib/Travel/Status/DE/URA.pm | 4 +- 3 files changed, 98 insertions(+), 98 deletions(-) create mode 100644 lib/Travel/Status/DE/MM.pm delete mode 100644 lib/Travel/Status/DE/MvgMainz.pm diff --git a/lib/Travel/Status/DE/MM.pm b/lib/Travel/Status/DE/MM.pm new file mode 100644 index 0000000..dcdcae4 --- /dev/null +++ b/lib/Travel/Status/DE/MM.pm @@ -0,0 +1,96 @@ +package Travel::Status::DE::MM; + +use strict; +use warnings; +use 5.010; + +no if $] >= 5.018, warnings => 'experimental::smartmatch'; + +our $VERSION = '2.01'; + +use parent 'Travel::Status::DE::URA'; + +sub new { + my ( $class, %opt ) = @_; + + $opt{ura_base} = 'http://ura.itcs.mvg-mainz.de/interfaces/ura'; + $opt{ura_version} = '1'; + + return $class->SUPER::new(%opt); +} + +1; + +__END__ + +=head1 NAME + +Travel::Status::DE::MM - unofficial Mainzer Mobilität departure monitor. + +=head1 SYNOPSIS + + use Travel::Status::DE::MM; + + my $status = Travel::Status::DE::MM->new( + stop => 'Hauptbahnhof West' + ); + + for my $d ($status->results) { + printf( + "%s %-5s %25s (in %d min)\n", + $d->time, $d->line, $d->destination, $d->countdown + ); + } + +=head1 VERSION + +version 2.01 + +=head1 DESCRIPTION + +Travel::Status::DE::MM is an unofficial interface to the Mainzer +Mobilität realtime departure monitor. + +=head1 METHODS + +=over + +=item my $status = Travel::Status::DE::MM->new(I<%opt>) + +Requests the departures as specified by I and returns a new +Travel::Status::DE::MM object. + +Calls Travel::Status::DE::URA->new with the appropriate B and +B parameters. All I are passed on. + +See Travel::Status::DE::URA(3pm) for the other methods. + +=back + +=head1 DIAGNOSTICS + +None. + +=head1 DEPENDENCIES + +=over + +=item * Travel::Status::DE::URA(3pm) + +=back + +=head1 BUGS AND LIMITATIONS + +Many. + +=head1 SEE ALSO + +MM-m(1), Travel::Status::DE::URA(3pm). + +=head1 AUTHOR + +Copyright (C) 2016, 2019 by Moritz Schlarb Emoschlar@metalabs.deE + +=head1 LICENSE + +This module is licensed under the same terms as Perl itself. diff --git a/lib/Travel/Status/DE/MvgMainz.pm b/lib/Travel/Status/DE/MvgMainz.pm deleted file mode 100644 index f0ff28c..0000000 --- a/lib/Travel/Status/DE/MvgMainz.pm +++ /dev/null @@ -1,96 +0,0 @@ -package Travel::Status::DE::MvgMainz; - -use strict; -use warnings; -use 5.010; - -no if $] >= 5.018, warnings => 'experimental::smartmatch'; - -our $VERSION = '2.01'; - -use parent 'Travel::Status::DE::URA'; - -sub new { - my ( $class, %opt ) = @_; - - $opt{ura_base} = 'http://ura.itcs.mvg-mainz.de/interfaces/ura'; - $opt{ura_version} = '1'; - - return $class->SUPER::new(%opt); -} - -1; - -__END__ - -=head1 NAME - -Travel::Status::DE::MvgMainz - unofficial MVG departure monitor. - -=head1 SYNOPSIS - - use Travel::Status::DE::MvgMainz; - - my $status = Travel::Status::DE::MvgMainz->new( - stop => 'Hauptbahnhof West' - ); - - for my $d ($status->results) { - printf( - "%s %-5s %25s (in %d min)\n", - $d->time, $d->line, $d->destination, $d->countdown - ); - } - -=head1 VERSION - -version 2.01 - -=head1 DESCRIPTION - -Travel::Status::DE::MvgMainz is an unofficial interface to the MVG Mainz realtime -departure monitor. - -=head1 METHODS - -=over - -=item my $status = Travel::Status::DE::MvgMainz->new(I<%opt>) - -Requests the departures as specified by I and returns a new -Travel::Status::DE::MvgMainz object. - -Calls Travel::Status::DE::URA->new with the appropriate B and -B parameters. All I are passed on. - -See Travel::Status::DE::URA(3pm) for the other methods. - -=back - -=head1 DIAGNOSTICS - -None. - -=head1 DEPENDENCIES - -=over - -=item * Travel::Status::DE::URA(3pm) - -=back - -=head1 BUGS AND LIMITATIONS - -Many. - -=head1 SEE ALSO - -MvgMainz-m(1), Travel::Status::DE::URA(3pm). - -=head1 AUTHOR - -Copyright (C) 2016 by Moritz Schlarb Emoschlar@metalabs.deE - -=head1 LICENSE - -This module is licensed under the same terms as Perl itself. diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm index 4654b45..35b77bd 100644 --- a/lib/Travel/Status/DE/URA.pm +++ b/lib/Travel/Status/DE/URA.pm @@ -385,8 +385,8 @@ sub get_services { { ura_base => 'http://ura.itcs.mvg-mainz.de/interfaces/ura', ura_version => 1, - name => 'MVG Mainz', - shortname => 'MvgMainz', + name => 'Mainzer Mobilität', + shortname => 'MM', }, { ura_base => 'http://countdown.api.tfl.gov.uk/interfaces/ura', -- cgit v1.2.3