NAME¶
Dancer::Object::Singleton - Singleton base class for Dancer
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 meantto 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¶
Damien Krotkine
LICENSE AND COPYRIGHT¶
Copyright 2010 Damien Krotkine.
This program is free software; you can redistribute it and/or modify it under
the terms of either: the GNU General Public License as published by the Free
Software Foundation; or the Artistic License.
See
http://dev.perl.org/licenses/ for more information.