summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/WWW/Efa/Error/Setup.pm18
-rw-r--r--t/50-www-efa.t6
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'",
);
}