1 files changed, 19 insertions, 0 deletions
diff --git a/Data-TagsAndRanges/lib/Data/TagsAndRanges/Exceptions.pm b/Data-TagsAndRanges/lib/Data/TagsAndRanges/Exceptions.pm
index c28824b..def6108 100644
--- a/Data-TagsAndRanges/lib/Data/TagsAndRanges/Exceptions.pm
+++ b/Data-TagsAndRanges/lib/Data/TagsAndRanges/Exceptions.pm
@@ -34,5 +34,24 @@ has '+message' => (
     default => 'no range found for value ',
 );
 }
+package Data::TagsAndRanges::Exceptions::BadRange;{
+use Moose;
+extends 'Throwable::Error';
+
+has ['from','to'] => ( is => 'ro', required => 1 );
+has '+message' => (
+    default => 'invalid range: ',
+);
+
+sub as_string {
+    my ($self) = @_;
+
+    my $str = $self->message . $self->from . ', ' . $self->to;
+    $str .= "\n\n" . $self->stack_trace->as_string;
+
+    return $str;
+}
+
+}
 
 1;