Data::Object::State

Singleton Builder for Perl 5

method: new method: renew

package Example;

use Data::Object::State;

has data => (
  is => 'ro'
);

package main;

my $example = Example->new;

This package provides an abstract base class for creating singleton classes. This package is derived from Moo and makes consumers Moo classes (with all that that entails). This package also injects a BUILD method which is responsible for hooking into the build process and returning the appropriate state.

The new method sets the internal state and returns a new class instance. Subsequent calls to new will return the same instance as was previously returned.

renew() : Object

=example-1 new

package Example::New;

use Data::Object::State;

has data => (
  is => 'ro'
);

my $example1 = Example::New->new(data => 'a');
my $example2 = Example::New->new(data => 'b');

[$example1, $example2]

The renew method resets the internal state and returns a new class instance. Each call to renew will discard the previous state, then reconstruct and stash the new state as requested.

renew() : Object

=example-1 renew

package Example::Renew;

use Data::Object::State;

has data => (
  is => 'ro'
);

my $example1 = Example::Renew->new(data => 'a');
my $example2 = $example1->renew(data => 'b');
my $example3 = Example::Renew->new(data => 'c');

[$example1, $example2, $example3]