WWW::Efa::Error::Setup: Add accessors for inernals

1 files changed, 18 insertions, 0 deletions

diff --git a/lib/WWW/Efa/Error/Setup.pm b/lib/WWW/Efa/Error/Setup.pm
index f35dcee..386613b 100644
--- a/lib/WWW/Efa/Error/Setup.pm
+++ b/lib/WWW/Efa/Error/Setup.pm
@@ -60,4 +60,22 @@ sub as_string {
 	);
 }
 
+=head2 $error->option()
+
+Returns the option which caused the error.
+
+=head2 $error->value()
+
+Returns the value which caused the error.
+
+=head2 $error->message()
+
+Returns a message describing what went wrong and how to fix it.
+
+=cut
+
+sub option  { return $_[0]->{'key'}     }
+sub value   { return $_[0]->{'value'}   }
+sub message { return $_[0]->{'message'} }
+
 1;