diff options
| -rwxr-xr-x | bin/efa-m | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 6 |
2 files changed, 4 insertions, 4 deletions
@@ -75,7 +75,7 @@ else { ( $place, $input ) = @ARGV; } -if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) { +if ( $input =~ s{ ^ (?<type> address|poi|stop|stopID) : }{}x ) { $input_type = $+{type}; } diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index 25d3e15..e1c8edf 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -34,8 +34,8 @@ sub new { if ( not( $opt{name} ) ) { confess('You must specify a name'); } - if ( $opt{type} and not( $opt{type} ~~ [qw[stop address poi]] ) ) { - confess('type must be stop, address or poi'); + if ( $opt{type} and not( $opt{type} ~~ [qw[stop stopID address poi]] ) ) { + confess('type must be stop, stopID, address, or poi'); } if ( not $opt{efa_url} ) { @@ -706,7 +706,7 @@ E<lt>derf+efa@finalrewind.orgE<gt>. Name of the place/city -=item B<type> => B<address>|B<poi>|B<stop> +=item B<type> => B<address>|B<poi>|B<stop>|B<stopID> Type of the following I<name>. B<poi> means "point of interest". Defaults to B<stop> (stop/station name). |