diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-05-24 09:27:04 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-05-24 09:27:04 +0200 |
commit | 263f9611d0d3090c4b5a48cdb8c3d98ef90c209c (patch) | |
tree | 0d3318f254dcd51562d09903a4b8d3701ad1f6a4 /bin | |
parent | 8828e04824562d2b9de138b218477541fc130e1d (diff) |
VRR.pm: Change new() key names
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa | 26 |
1 files changed, 13 insertions, 13 deletions
@@ -77,21 +77,21 @@ for my $pair ( [ \@from, \$from_type ], [ \@via, \$via_type ], } $efa = Net::Travel::DE::VRR->new( - from => [ @from, $from_type ], - to => [ @to, $to_type ], + origin => [ @from, $from_type ], + destination => [ @to, $to_type ], via => ( @via ? [ @via, $via_type ] : undef ), - arrive => $opt->{'arrive'}, - depart => $opt->{'depart'} // $opt->{'time'}, - date => $opt->{'date'}, - exclude => $opt->{'exclude'}, - prefer => $opt->{'prefer'}, - include => $opt->{'include'}, - bike => $opt->{'bike'}, - - proximity => $opt->{'proximity'}, - walk_speed => $opt->{'walk-speed'}, - max_interchanges => $opt->{'max-change'}, + arrival_time => $opt->{'arrive'}, + departure_time => $opt->{'depart'} // $opt->{'time'}, + date => $opt->{'date'}, + exclude => $opt->{'exclude'}, + train_type => $opt->{'include'}, + with_bike => $opt->{'bike'}, + + select_interchange_by => $opt->{'prefer'}, + use_near_stops => $opt->{'proximity'}, + walk_speed => $opt->{'walk-speed'}, + max_interchanges => $opt->{'max-change'}, ); $efa->submit( timeout => $opt->{'timeout'} ); |