Callback.pm

package Mojo::Callback;

use Mojo::Base -strict;

use Exporter 'import';
use Sub::Util 'set_subname';
use Data::GUID;
use Mojo::Exception;

our @EXPORT = ('callback');

our @EXPORT_OK = (qw/exception stack/);

our $STACK = [];
our $LOGGER;
our $TAGS = {};

sub callback (&) {
  my $cb = shift;
  my $logger = $LOGGER;
  my $tags = $TAGS;
  my $stack = stack();
  my $name = 'Mojo::Callback::__ANON__::' . Data::GUID->guid_string;
  set_subname $name, $cb;
  return sub {
    local $LOGGER = $logger;
    local $TAGS = $tags;
    local $STACK = $stack;
    $cb->(@_);
  };
}

sub exception {
  Mojo::Exception->new(@_ == 1 ? (message => shift) : @_)->frames(stack(2));
}

sub stack {
  my $start = shift // 1;
  my @frames;
  while (my @trace = caller($start++)) {
    last if $trace[3] =~ /\QMojo::Callback::__ANON__::/;
    push @frames, \@trace;
  }
  return [@frames, @$STACK];
}

1;