diff options
Diffstat (limited to 'lib/Travel/Routing/DE/VRR.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/VRR.pm | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/lib/Travel/Routing/DE/VRR.pm b/lib/Travel/Routing/DE/VRR.pm index 62d6a3e..d486a6e 100644 --- a/lib/Travel/Routing/DE/VRR.pm +++ b/lib/Travel/Routing/DE/VRR.pm @@ -9,22 +9,30 @@ use LWP::UserAgent; use XML::LibXML; use Exception::Class ( + 'Travel::Routing::DE::VRR::Exception', 'Travel::Routing::DE::VRR::Exception::Setup' => { + isa => 'Travel::Routing::DE::VRR::Exception', description => 'invalid argument on setup', fields => [ 'option', 'have', 'want' ], }, 'Travel::Routing::DE::VRR::Exception::Net' => { + isa => 'Travel::Routing::DE::VRR::Exception', description => 'could not submit POST request', fields => 'http_response', }, - 'Travel::Routing::DE::VRR::Exception::NoData' => - { description => 'got no data to parse', }, + 'Travel::Routing::DE::VRR::Exception::NoData' => { + isa => 'Travel::Routing::DE::VRR::Exception', + description => 'got no data to parse', + }, 'Travel::Routing::DE::VRR::Exception::Ambiguous' => { + isa => 'Travel::Routing::DE::VRR::Exception', description => 'ambiguous input', fields => [ 'post_key', 'possibilities' ], }, - 'Travel::Routing::DE::VRR::Exception::NoConnections' => - { description => 'got no connections', }, + 'Travel::Routing::DE::VRR::Exception::NoConnections' => { + isa => 'Travel::Routing::DE::VRR::Exception', + description => 'got no connections', + }, ); our $VERSION = '1.3'; @@ -759,6 +767,9 @@ The following methods act like the arguments to B<new>. See there. =head1 DIAGNOSTICS +When encountering an error, Travel::Routing::DE::VRR returns a +Travel::Routing::DE::VRR::Exception object. + Dies with a backtrace when anything goes wrong. =head1 DEPENDENCIES |