Pridane trasovaci d error helpery

lib/CF/Helpers/Core.pm

@@ -6,10 +6,36 @@ no warnings qw{ experimental::signatures } ;
 
 sub register ($class, $self, $conf) {
 
-    $self->helper( spec_filter => sub {
-        my $c     = shift;
-        my $data  = shift;
-        my $class = shift;
+    $self->helper(error => sub ($c, $status, $errors=[]) {
+
+        if ( scalar @_ == 2 ) {
+            $errors = [{ code => shift, message => shift }];
+        }
+        elsif ( ref $_[0] eq 'ARRAY' ) {
+            $errors = shift;
+        }
+        elsif ( ref $_[0] eq 'HASH' ) {
+            $errors = [ shift ];
+        }
+        else {
+            $errors = [{ message => shift, code => undef }];
+        }
+
+        $c->stash(
+            status  => $status,
+            openapi => { errors => $errors }
+        );
+
+        return undef;
+    });
+
+    $self->helper( trace => sub( $c, $data='' ) {
+        $data = Dump $data if ref $data;
+        $c->app->log->debug($data);
+
+    });
+
+    $self->helper( spec_filter => sub ($c, $data, $class) {
 
         if (my $def =$c->openapi->spec("/components/schemas/$class")) {
             my $filtered = {};