Initial module test (new/isa/can)

	die $efa->{'error'}->as_string();

}

if (ref($efa) eq 'WWW::Efa::Error') {

if ($efa->isa('WWW::Efa::Error')) {

	die($efa->as_string);

}

#!/usr/bin/env perl

use strict;

use warnings;

use 5.010;

use Test::More tests => 6;

BEGIN {

	use_ok('WWW::Efa');

}

require_ok('WWW::Efa');

my $conf_default = {

	from => ['Essen', 'HBf'],

	to   => ['Koeln', 'HBf'],

};

my $post_default = {

	place_origin => 'Essen',

	name_origin => 'HBf',

	type_origin => 'stop',

	place_destination => 'Koeln',

	name_destination => 'HBf',

	type_destination => 'stop',

};

my $efa = new_ok('WWW::Efa' => [%{$conf_default}]);

can_ok($efa, qw{new submit parse connections});

is_deeply($efa->{'config'}, $conf_default);

is_deeply($efa->{'post'}, $post_default);

$efa = WWW::Efa->new();