Commit b53f3398 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Rename to Net::Travel::DE::VRR

parent c2190255

Build.PL

+1 −1
Original line number Diff line number Diff line
@@ -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',

bin/efa

+2 −2
Original line number Diff line number Diff line
@@ -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 ),

lib/WWW/Efa.pm→lib/Net/Travel/DE/VRR.pm

+8 −8
Original line number Diff line number Diff line 
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

t/02-synopsis.t

+1 −6
Original line number Diff line number Diff line
@@ -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();

t/50-www-efa.t→t/20-vrr.t

+3 −3
Original line number Diff line number Diff line
@@ -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(@_)}]

	);

}