/ 
Dancer-1.3522
⭐ Starred 738 / Dancer::Object::Singleton
Security Advisories (1)
CVE-2026-5080 (2026-04-30)

Dancer::Session::Abstract versions through 1.3522 for Perl generates session ids insecurely. The session id is generated from summing the character codepoints of the absolute pathname with the process id, the epoch time and calls to the built-in rand() function to return a number between 0 and 999-billion, and concatenating that result three times. The path name might be known or guessed by an attacker, especially for applications known to be written using Dancer with standard installation locations. The epoch time can be guessed by an attacker, and may be leaked in the HTTP header. The process id comes from a small set of numbers, and workers may have sequential process ids. The built-in rand() function is seeded with 32-bits and is considered unsuitable for security applications. Predictable session ids could allow an attacker to gain access to systems.

NAME

Dancer::Object::Singleton - Singleton base class for Dancer

VERSION

version 1.3522

SYNOPSIS

package My::Dancer::Extension;

use strict;
use warnings;
use base 'Dancer::Object::Singleton';

__PACKAGE__->attributes( qw/name value this that/ );

sub init {
    my ($class, $instance) = @_;
    # our initialization code, if we need one
}

# .. later on ..

# returns the unique instance
my $singleton_intance = My::Dancer::Extension->instance();

DESCRIPTION

Dancer::Object::Singleton is meant to be used instead of Dancer::Object, if you want your object to be a singleton, that is, a class that has only one instance in the application.

It provides you with attributes and an initializer.

METHODS

instance

Returns the instance of the singleton. The instance is created only when needed. The creation will call the init() method, which you should implement.

init

Exists but does nothing. This is so you won't have to write an initializer if you don't want to. init receives the instance as argument.

get_attributes

Get the attributes of the specific class.

attributes

Generates attributes for whatever object is extending Dancer::Object and saves them in an internal hashref so they can be later fetched using get_attributes.

AUTHOR

Dancer Core Developers

COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Alexis Sukrieh.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.