diff options
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 88 |
1 files changed, 69 insertions, 19 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 7747818..c67ac8d 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -342,7 +342,7 @@ sub get_service { my ($service) = @_; if ( defined $service ) { - return $hafas_instance{$service}; + return %{ $hafas_instance{$service} }; } return; } @@ -414,50 +414,70 @@ Supported I<opts> are: =item B<station> => I<station> -The train station to report for, e.g. "Essen HBf" or +The station or stop to report for, e.g. "Essen HBf" or "Alfredusbad, Essen (Ruhr)". Mandatory. =item B<date> => I<dd>.I<mm>.I<yyyy> Date to report for. Defaults to the current day. +=item B<excluded_mots> => [I<mot1>, I<mot2>, ...] + +By default, all modes of transport (trains, trams, buses etc.) are returned. +If this option is set, all modes appearing in I<mot1>, I<mot2>, ... will +be excluded. The supported modes depend on B<service>, use +B<get_services> or B<get_service> to get the supported values. + +Note that this parameter does not work if the B<url> parameter is set. + +=item B<exclusive_mots> => [I<mot1>, I<mot2>, ...] + +If this option is set, only the modes of transport appearing in I<mot1>, +I<mot2>, ... will be returned. The supported modes depend on B<service>, use +B<get_services> or B<get_service> to get the supported values. + +Note that this parameter does not work if the B<url> parameter is set. + =item B<language> => I<language> -Set language for additional information. Accepted arguments: B<d>eutsch, -B<e>nglish, B<i>talian, B<n> (dutch). +Set language for additional information. Accepted arguments are B<d>eutsch, +B<e>nglish, B<i>talian and B<n> (dutch), depending on the used service. =item B<lwp_options> => I<\%hashref> Passed on to C<< LWP::UserAgent->new >>. Defaults to C<< { timeout => 10 } >>, you can use an empty hashref to override it. -=item B<time> => I<hh>:I<mm> - -Time to report for. Defaults to now. - =item B<mode> => B<arr>|B<dep> By default, Travel::Status::DE::HAFAS reports train departures (B<dep>). Set this to B<arr> to get arrivals instead. -=item B<mot> => I<\%hashref> +=item B<service> => I<service> -Modes of transport to show. Accepted keys are: B<ice> (ICE trains), B<ic_ec> -(IC and EC trains), B<d> (InterRegio and similarly fast trains), B<nv> -("Nahverkehr", mostly RegionalExpress trains), B<s> ("S-Bahn"), B<bus>, -B<ferry>, B<u> ("U-Bahn") and B<tram>. +Request results from I<service>, defaults to "DB". +See B<get_services> (and C<< hafas-m --list >>) for a list of supported +services. -Setting a mode (as hash key) to 1 includes it, 0 excludes it. undef leaves it -at the default. +=item B<time> => I<hh>:I<mm> + +Time to report for. Defaults to now. -By default, the following are shown: ice, ic_ec, d, nv, s. +=item B<url> => I<url> + +Request results from I<url>, defaults to the one belonging to B<service>. =back +=item $status->errcode + +In case of an error in the HAFAS backend, returns the corresponding error code +as string. If no backend error occurred, returns undef. + =item $status->errstr -In case of an error in the HTTP request, returns a string describing it. If -no error occurred, returns undef. +In case of an error in the HTTP request or HAFAS backend, returns a string +describing it. If no error occurred, returns undef. =item $status->results @@ -467,6 +487,36 @@ Travel::Status::DE::HAFAS::Result(3pm) object. If no matching results were found or the parser / http request failed, returns undef. +=item $status->similar_stops + +Returns a list of hashes describing stops whose name is similar to the one +requested in the constructor's B<station> parameter. Returns nothing if +the active service does not support this feature. +This is most useful if B<errcode> returns 'H730', which means that the +HAFAS backend could not identify the stop. + +See Travel::Status::DE::HAFAS::StopFinder(3pm)'s B<results> method for details +on the return value. + +=item $status->get_active_service + +Returns a hash describing the active service. Contains the keys +B<url> (URL to the station board service), B<stopfinder> (URL to the +stopfinder service, if supported), B<name>, and B<productbits> +(arrayref describing the supported modes of transport, may contain duplicates). + +=item Travel::Status::DE::HAFAS::get_services() + +Returns an array containing all supported HAFAS services. Each element is a +hashref and contains all keys mentioned in B<get_active_service>. +It also contains a B<shortname> key, which is the service name used by +the constructor's B<service> parameter. + +=item Travel::Status::DE::HAFAS::get_service(I<$service>) + +Returns a hash describing the service I<$service>. See +B<get_active_service> for the hash layout. + =back =head1 DIAGNOSTICS @@ -491,7 +541,7 @@ Unknown. =head1 SEE ALSO -Travel::Status::DE::HAFAS::Result(3pm). +Travel::Status::DE::HAFAS::Result(3pm), Travel::Status::DE::HAFAS::StopFinder(3pm). =head1 AUTHOR |