NAME WebService::KVV::Live::Stop - Arrival times for Trams/Buses in the Karlsruhe metropolitan area SYNOPSIS use WebService::KVV::Live::Stop; use utf8; use open qw( :encoding(UTF-8) :std ); my $stop = WebService::KVV::Live::Stop->new("Siemensallee"); print "Arrival time: $_->{time} $_->{route} $_->{destination}\n" for $stop->departures; Print departure table: use WebService::KVV::Live::Stop; use utf8; use open qw( :encoding(UTF-8) :std ); use Data::Dumper::Table; use Data::Visitor::Callback; $stop = WebService::KVV::Live::Stop->new($ARGV[0] // 'Kronenplatz'); my @entries = $stop->departures; Data::Visitor::Callback->new('JSON::PP::Boolean' => sub { $_ = $_ ? 'true' : 0 })->visit(@entries); my $departure_table = Tabulate \@entries; $departure_table =~ s/^.*\n//; # remove object type print $departure_tabletable; DESCRIPTION API for searching for bus/tram stops in the Karlsruhe Metropolitan Area (Karlsruhe Verkehrsvertriebe network to be exact) and for listing departure times at said stops. IMPLEMENTATION Not really an API, just a client for http://live.kvv.de. See kvvlive.json for details. The client is based on Net::HTTP::Spore and has some workarounds: It overrides a method from Net::HTTP::Spore that doesn't handle colons properly and throws a generic message on errors instead of the more specific HTTP error messages. METHODS AND ARGUMENTS new($latitude, $langitude), new($name), new($id) Search for matching local transport stops. $id are identifiers starting with "de:". $name need not be an exact match. Returns a list of WebService::KVV::Live::Stops in list context. In scalar context returns the best match. departures([$route]) Returns a list of departures for a WebService::KVV::Live::Stop. Results can be restricted to a particular route (Linie) by the optional argument. GIT REPOSITORY http://github.com/athreef/WebService-KVV-Live-Stop SEE ALSO http://live.kvv.de AUTHOR Ahmad Fatoum , http://a3f.at COPYRIGHT AND LICENSE Copyright (C) 2016 Ahmad Fatoum This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.