diff options
-rw-r--r-- | Build.PL | 2 | ||||
-rwxr-xr-x | bin/efa | 4 | ||||
-rw-r--r-- | lib/Net/Travel/DE/VRR.pm (renamed from lib/WWW/Efa.pm) | 16 | ||||
-rw-r--r-- | t/02-synopsis.t | 7 | ||||
-rw-r--r-- | t/20-vrr.t (renamed from t/50-www-efa.t) | 6 | ||||
-rw-r--r-- | t/out/ambiguous | 4 | ||||
-rw-r--r-- | t/out/invalid_input | 1 | ||||
-rw-r--r-- | t/out/no_connections | 5 |
8 files changed, 15 insertions, 30 deletions
@@ -12,7 +12,7 @@ my %opts = ( 'Test::Command' => 0, 'Test::Synopsis' => 0, }, - module_name => 'WWW::Efa', + module_name => 'Net::Travel::DE::VRR', license => 'unrestricted', requires => { 'perl' => '5.10.0', @@ -6,8 +6,8 @@ use strict; use warnings; use 5.010; +use Net::Travel::DE::VRR; use Getopt::Long qw/:config no_ignore_case/; -use WWW::Efa; our $VERSION = '1.3'; my $ignore_info = 'Fahrradmitnahme'; @@ -78,7 +78,7 @@ for my $pair ( [ \@from, \$from_type ], [ \@via, \$via_type ], } } -$efa = WWW::Efa->new( +$efa = Net::Travel::DE::VRR->new( from => [ @from, $from_type ], to => [ @to, $to_type ], via => ( @via ? [ @via, $via_type ] : undef ), diff --git a/lib/WWW/Efa.pm b/lib/Net/Travel/DE/VRR.pm index 99c3181..5d330fd 100644 --- a/lib/WWW/Efa.pm +++ b/lib/Net/Travel/DE/VRR.pm @@ -1,4 +1,4 @@ -package WWW::Efa; +package Net::Travel::DE::VRR; use strict; use warnings; @@ -482,13 +482,13 @@ __END__ =head1 NAME -WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service +Net::Travel::DE::VRR - inofficial interface to the efa.vrr.de German itinerary service =head1 SYNOPSIS - use WWW::Efa; + use Net::Travel::DE::VRR; - my $efa = WWW::Efa->new( + my $efa = Net::Travel::DE::VRR->new( from => ['Essen', 'HBf'], to => ['Duisburg', 'HBf'], ); @@ -513,7 +513,7 @@ version 1.3 =head1 DESCRIPTION -B<WWW::Efa> is a client for the efa.vrr.de web interface. +B<Net::Travel::DE::VRR> is a client for the efa.vrr.de web interface. You pass it the start/stop of your journey, maybe a time and a date and more details, and it returns the up-to-date scheduled connections between those two stops. @@ -524,9 +524,9 @@ It uses B<LWP::USerAgent> and B<XML::LibXML> for this. =over -=item $efa = WWW::Efa->new(I<%conf>) +=item $efa = Net::Travel::DE::VRR->new(I<%conf>) -Returns a new WWW::Efa object and sets up its POST data via %conf. +Returns a new Net::Travel::DE::VRR object and sets up its POST data via %conf. Valid hash keys and their values are: @@ -652,7 +652,7 @@ Dies with a backtrace when anything goes wrong. The parser is still somewhat fragile and has no proper error handling. -It is best not to pass Unicode characters to B<WWW::Efa>. +It is best not to pass Unicode characters to B<Net::Travel::DE::VRR>. =head1 AUTHOR diff --git a/t/02-synopsis.t b/t/02-synopsis.t index 3b5f0c8..fb2b63f 100644 --- a/t/02-synopsis.t +++ b/t/02-synopsis.t @@ -9,10 +9,5 @@ eval "use Test::Synopsis"; if ($@) { plan skip_all => 'Test::Synopsis required for testing'; } -else { - plan tests => 1; -} -for my $m (qw(lib/WWW/Efa.pm)) { - synopsis_ok($m); -} +all_synopsis_ok(); diff --git a/t/50-www-efa.t b/t/20-vrr.t index 29e4af5..86422c1 100644 --- a/t/50-www-efa.t +++ b/t/20-vrr.t @@ -6,9 +6,9 @@ use 5.010; use Test::More tests => 59; BEGIN { - use_ok('WWW::Efa'); + use_ok('Net::Travel::DE::VRR'); } -require_ok('WWW::Efa'); +require_ok('Net::Travel::DE::VRR'); sub efa_conf { my $ret = { @@ -23,7 +23,7 @@ sub efa_conf { sub efa_new { return new_ok( - 'WWW::Efa' => [%{efa_conf(@_)}] + 'Net::Travel::DE::VRR' => [%{efa_conf(@_)}] ); } diff --git a/t/out/ambiguous b/t/out/ambiguous deleted file mode 100644 index 787b3fd..0000000 --- a/t/out/ambiguous +++ /dev/null @@ -1,4 +0,0 @@ -WWW::Efa error: ambiguous input for name_origin: - Bredeney - Bredeney Friedhof - Bredeneyer Kreuz diff --git a/t/out/invalid_input b/t/out/invalid_input deleted file mode 100644 index 2d22895..0000000 --- a/t/out/invalid_input +++ /dev/null @@ -1 +0,0 @@ -WWW::Efa error: No data returned by efa.vrr.de diff --git a/t/out/no_connections b/t/out/no_connections deleted file mode 100644 index f081ab7..0000000 --- a/t/out/no_connections +++ /dev/null @@ -1,5 +0,0 @@ -WWW::Efa error from efa.vrr.de: -
-Leider konnte für Ihre Anfrage keine Verbindung gefunden werden! Bitte ändern Sie Ihre Eingabe (z.B. FuÃwegezeit in den Mobilitätseinstellungen) oder starten Sie eine neue Anfrage!
-
- |