Support setting all attributes using "throw"

Author: iamalnewkirk

lib/Data/Object/Exception.pm

@@ -64,19 +64,23 @@ fun BUILDARGS($class, @args) {
 # FUNCTIONS
 
 fun throw($self, $message, $context, $offset) {
-  my $class = ref $self || $self;
-
   my $id;
-  my $frames;
+
+  my $class = ref $self || $self;
 
   my $args = {};
 
+  if (ref $message eq 'ARRAY') {
+    ($id, $message) = @$message;
+  }
+
   if (ref $self) {
     for my $name (keys %$self) {
       $args->{$name} = $self->{$name};
     }
   }
 
+  $args->{id} = $id if $id;
   $args->{message} = $message if $message;
   $args->{context} = $context if $context;
 

t/Data_Object_Exception.t

@@ -82,20 +82,36 @@ The package allows objects to be instantiated with key-value arguments.
 
 =method throw
 
-The throw method throws an error with message.
+The throw method throws an error with message (and optionally, an ID).
 
 =signature throw
 
-throw(Str $class, Any $context, Maybe[Number] $offset) : Any
+throw(Tuple[Str, Str] | Str $message, Any $context, Maybe[Number] $offset) : Any
 
 =example-1 throw
 
   use Data::Object::Exception;
 
+  my $exception = Data::Object::Exception->new;
+
+  $exception->throw('Oops!')
+
+=example-2 throw
+
+  use Data::Object::Exception;
+
   my $exception = Data::Object::Exception->new('Oops!');
 
   $exception->throw
 
+=example-3 throw
+
+  use Data::Object::Exception;
+
+  my $exception = Data::Object::Exception->new;
+
+  $exception->throw(['E001', 'Oops!'])
+
 =cut
 
 =method explain
@@ -204,6 +220,34 @@ $subs->example(-1, 'throw', 'method', fun($tryable) {
   $result
 });
 
+$subs->example(-2, 'throw', 'method', fun($tryable) {
+  $tryable->default(fun($caught) {
+    $caught
+  });
+  ok my $result = $tryable->result;
+  ok $result->isa('Data::Object::Exception');
+  ok !length $result->id;
+  ok !length $result->context;
+  ok length $result->frames;
+  is $result->message, 'Oops!';
+
+  $result
+});
+
+$subs->example(-3, 'throw', 'method', fun($tryable) {
+  $tryable->default(fun($caught) {
+    $caught
+  });
+  ok my $result = $tryable->result;
+  ok $result->isa('Data::Object::Exception');
+  is $result->id, 'E001';
+  ok !length $result->context;
+  ok length $result->frames;
+  is $result->message, 'Oops!';
+
+  $result
+});
+
 $subs->example(-1, 'explain', 'method', fun($tryable) {
   ok my $result = $tryable->result;