From fec4f0d857fb35a7c6cd35a51694671651b23df7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sat, 14 Aug 2010 00:05:28 +0200
Subject: WWW::Efa::Error::Setup: Add accessors for inernals

---
 lib/WWW/Efa/Error/Setup.pm | 18 ++++++++++++++++++
 t/50-www-efa.t             |  6 +++---
 2 files changed, 21 insertions(+), 3 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;
diff --git a/t/50-www-efa.t b/t/50-www-efa.t
index e527272..bae1e94 100644
--- a/t/50-www-efa.t
+++ b/t/50-www-efa.t
@@ -80,15 +80,15 @@ sub is_efa_err {
 	isa_ok($efa->{'error'}, 'WWW::Efa::Error::Setup');
 
 	is(
-		$efa->{'error'}->{'key'}, $key,
+		$efa->{'error'}->option(), $key,
 		"$key => $val: Error: Correct key",
 	);
 	is(
-		$efa->{'error'}->{'value'}, $val_want,
+		$efa->{'error'}->value(), $val_want,
 		"$key => $val: Error: Correct valuef",
 	);
 	is(
-		$efa->{'error'}->{'message'}, $str,
+		$efa->{'error'}->message(), $str,
 		"$key => $val: Error: String is '$str'",
 	);
 }
-- 
cgit v1.2.3