Security Advisories (1)
CVE-2025-15604 (2026-03-28)

Amon2 versions before 6.17 for Perl use an insecure random_string implementation for security functions. In versions 6.06 through 6.16, the random_string function will attempt to read bytes from the /dev/urandom device, but if that is unavailable then it generates bytes by concatenating a SHA-1 hash seeded with the built-in rand() function, the PID, and the high resolution epoch time. The PID will come from a small set of numbers, and the epoch time may be guessed, if it is not leaked from the HTTP Date header. The built-in rand function is unsuitable for cryptographic usage. Before version 6.06, there was no fallback when /dev/urandom was not available. Before version 6.04, the random_string function used the built-in rand() function to generate a mixed-case alphanumeric string. This function may be used for generating session ids, generating secrets for signing or encrypting cookie session data and generating tokens used for Cross Site Request Forgery (CSRF) protection.

NAME

Amon2::Trigger - Trigger system for Amon2

SYNOPSIS

package MyClass;
use parent qw/Amon2::Trigger/;

__PACKAGE__->add_trigger('Foo');
__PACKAGE__->call_trigger('Foo');

DESCRIPTION

This is a trigger system for Amon2. You can use this class for your class using trigger system.

METHODS

__PACKAGE__->add_trigger($name:Str, \&code:CodeRef)
$obj->add_trigger($name:Str, \&code:CodeRef)

You can register the callback function for the class or object.

When you register callback code on object, the callback is only registered to object, not for class.

Return Value: Not defined.

__PACKAGE__->call_trigger($name:Str);
$obj->call_trigger($name:Str);

This method calls all callback code for $name.

Return Value: Not defined.

__PACKAGE__->get_trigger_code($name:Str)
$obj->get_trigger_code($name:Str)

You can get all of trigger code from the class and ancestors.

FAQ

WHY DON'T YOU USE Class::Trigger?

Class::Trigger does not support get_trigger_code.