diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-09-11 13:35:24 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-09-11 13:35:24 +0200 |
| commit | 4ab8c3cc012f4154c79428243d62f94938d7563a (patch) | |
| tree | 29d20fea9516424f4a5b386a7157a5d3d7cd17a0 /lib | |
| parent | 43f83fc7df3a563521af01dd1251ddd8e8d21d3a (diff) | |
Allow departure listing for an address / point of interest
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/VRR.pm | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm index 3a7375d..a108425 100644 --- a/lib/Travel/Status/DE/VRR.pm +++ b/lib/Travel/Status/DE/VRR.pm @@ -17,6 +17,13 @@ sub new { my $mech = WWW::Mechanize->new(); my @now = localtime( time() ); + if ( not( $opt{place} and $opt{name} ) ) { + confess('You need to specify a place and a name'); + } + if ( $opt{type} and not( $opt{type} ~~ [qw[stop address poi]] ) ) { + confess('type must be stop, address or poi'); + } + my $self = { post => { command => q{}, @@ -46,7 +53,7 @@ sub new { sessionID => '0', submitButton => 'anfordern', typeInfo_dm => 'invalid', - type_dm => 'stop', + type_dm => $opt{type} // 'stop', useProxFootSearch => '0', useRealtime => '1', }, @@ -170,10 +177,14 @@ Arguments: Name of the place/city -=item B<name> => I<stop name> +=item B<type> => B<address>|B<poi>|B<stop> + +Type of the following I<name>. B<poi> means "point of interest". Defaults to +B<stop> (stop/station name). + +=item B<name> => I<name> -Name of the stop to list departures for. In future versions, this may also -support street or poi ("point of interest") names +address / poi / stop name to list departures for. =back |