summaryrefslogtreecommitdiff
path: root/lib/WWW/Efa/Error.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WWW/Efa/Error.pm')
-rw-r--r--lib/WWW/Efa/Error.pm60
1 files changed, 60 insertions, 0 deletions
diff --git a/lib/WWW/Efa/Error.pm b/lib/WWW/Efa/Error.pm
new file mode 100644
index 0000000..1f390bf
--- /dev/null
+++ b/lib/WWW/Efa/Error.pm
@@ -0,0 +1,60 @@
+package WWW::Efa::Error;
+
+use strict;
+use warnings;
+use 5.010;
+
+use base 'Exporter';
+
+our @EXPORT_OK = qw{};
+
+# source: internal / efa.vrr.de
+# type: internal: conf
+# efa.vrr.de: ambiguous / error / no data
+sub new {
+ my ($obj, $source, $type, $data) = @_;
+ my $ref = {};
+
+ $ref->{'source'} = $source;
+ $ref->{'type'} = $type;
+ $ref->{'data'} = $data;
+
+ return bless($ref, $obj);
+}
+
+sub as_string {
+ my ($self) = @_;
+ my $ret;
+
+ if ($self->{'source'} eq 'internal') {
+ $ret = sprintf(
+ "WWW::Efa config error: Wrong args for option %s. %s\n",
+ @{$self->{'data'}}
+ );
+ }
+ elsif ($self->{'source'} eq 'efa.vrr.de') {
+ given ($self->{'type'}) {
+ when ('no data') {
+ $ret = "WWW::Efa: efa.vrr.de returned no data\n";
+ }
+ when ('ambiguous') {
+ $ret = sprintf(
+ "WWW::Efa: efa.vrr.de: Ambiguous input for %s:\n",
+ shift(@{$self->{'data'}}),
+ );
+ foreach my $possible (@{$self->{'data'}}) {
+ $ret .= "\t${possible}\n";
+ }
+ }
+ when ('error') {
+ $ret = sprintf(
+ "WWW::Efa: efa.vrr.de error:\n%s\n",
+ $self->{'data'},
+ );
+ }
+ }
+ }
+ return $ret;
+}
+
+1;