File Coverage

blib/lib/Sentry/Util.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	5	10	50.0
condition	4	7	57.1
subroutine	12	12	100.0
pod	0	4	0.0
total	64	77	83.1

use Mojo::Base -strict, -signatures;

use Exporter qw(import);
use Mojo::Loader qw(load_class);
use Mojo::Util qw(dumper monkey_patch);
use UUID::Tiny ':std';

our @EXPORT_OK = qw(uuid4 truncate merge around);

  my $uuid = create_uuid_as_string(UUID_V4);
  $uuid =~ s/-//g;
  return $uuid;
}

  return $string if (ref($string) || $max == 0);

  return length($string) <= $max ? $string : substr($string, 0, $max) . '...';
}

  $target->{$key}
    = { ($target->{$key} // {})->%*, ($source->{$key} // {})->%* };
}

my %Patched = ();

  my $key = $package . '::' . $method;
  return if $Patched{$key};

  if (my $e = load_class $package) {
    die ref $e ? "Exception: $e" : "Module $package not found";
  }

  my $orig = $package->can($method);

  monkey_patch $package, $method => sub { $cb->($orig, @_) };

  $Patched{$key} = 1;

  return;
}

1;