NAME

Nano::Track - Trackable Role

ABSTRACT

Trackable Entity Role

SYNOPSIS

package Example;

use Moo;

extends 'Nano::Node';

with 'Nano::Track';

sub creator {
  my ($self, @args) = @_;
  return $self->getset('creator', @args);
}

sub touched {
  my ($self, @args) = @_;
  return $self->incr('touched');
}

package main;

my $example = Example->new;

# $example->touched;

DESCRIPTION

This package provides a transactional change-tracking role, useful for creating a history of changes and/or preventing race conditions when saving data for Nano::Node entities. Note: Due to conflicting method names, this role cannot be used with the Nano::Stash role.

LIBRARIES

This package uses type constraints from:

Nano::Types

ATTRIBUTES

This package has the following attributes:

changed

changed(Changes)

This attribute is read-only, accepts (Changes) values, and is optional.

METHODS

This package implements the following methods:

decr

decr(Str $name) : Int

The decr method decrements the data associated with a specific key.

decr example #1

my $example = Example->new;

my $upvote = $example->decr('upvote');

decr example #2

my $example = Example->new;

$example->incr('upvote');
$example->incr('upvote');
$example->incr('upvote');

my $upvote = $example->decr('upvote');

del

del(Str $name) : Any

The del method deletes the data associated with a specific key.

del example #1

my $example = Example->new;

my $touched = $example->del('touched');

del example #2

my $example = Example->new;

$example->set('touched', 'monday');

my $touched = $example->del('touched');

get

get($name) : Any

The get method return the data associated with a specific key.

get example #1

my $example = Example->new;

my $profile = $example->get('profile');

get example #2

my $example = Example->new;

$example->set('profile', {
  nickname => 'demonstration',
});

my $profile = $example->get('profile');

getpush

getpush(Str $name, Any @args) : ArrayRef[Any] | Any

The getpush method calls "push" or "get" based on the arguments provided. Allows you to easily create method-based accessors.

getpush example #1

my $example = Example->new;

my $steps = $example->getpush('steps');

getpush example #2

my $example = Example->new;

my $steps = $example->getpush('steps', '#1', '#2');

getset

getset(Str $name, Any @args) : Any

The getset method calls "get" or "set" based on the arguments provided. Allows you to easily create method-based accessors.

getset example #1

my $example = Example->new;

my $profile = $example->getset('profile', {
  nickname => 'demonstration',
});

getset example #2

my $example = Example->new;

$example->getset('profile', {
  nickname => 'demonstration',
});

my $profile = $example->getset('profile');

getunshift

getunshift(Str $name, Any @args) : ArrayRef[Any] | Any

The getunshift method calls "unshift" or "get" based on the arguments provided. Allows you to easily create method-based accessors.

getunshift example #1

my $example = Example->new;

my $step = $example->getunshift('steps');

getunshift example #2

my $example = Example->new;

$example->set('steps', ['#0']);

my $step = $example->getunshift('steps', '#1', '#2');

incr

incr(Str $name) : Int

The incr method increments the data associated with a specific key.

incr example #1

my $example = Example->new;

my $upvote = $example->incr('upvote');

incr example #2

my $example = Example->new;

$example->incr('upvote');
$example->incr('upvote');

my $upvote = $example->incr('upvote');

merge

merge(Str $name, HashRef $value) : HashRef

The merge method commits the data associated with a specific key to the channel as a partial to be merged into any existing data.

merge example #1

my $example = Example->new;

my $merge = $example->merge('profile', {
  password => 's3crets',
});

merge example #2

my $example = Example->new;

$example->set('profile', {
  nickname => 'demonstration',
});

my $merge = $example->merge('profile', {
  password => 's3crets',
});

pop

pop(Str $name) : Any

The pop method pops the data off of the stack associated with a specific key.

pop example #1

my $example = Example->new;

my $steps = $example->pop('steps');

pop example #2

my $example = Example->new;

$example->push('steps', '#1', '#2');

my $steps = $example->pop('steps');

poppush

poppush(Str $name, Any @args) : ArrayRef[Any] | Any

The poppush method calls "push" or "pop" based on the arguments provided. Allows you to easily create method-based accessors.

poppush example #1

my $example = Example->new;

my $steps = $example->poppush('steps');

poppush example #2

my $example = Example->new;

$example->set('steps', ['#1', '#2', '#3']);

my $steps = $example->poppush('steps', '#4');

poppush example #3

my $example = Example->new;

$example->set('steps', ['#1', '#2', '#3']);

my $steps = $example->poppush('steps');

push

push(Str $name, Any @value) : ArrayRef[Any]

The push method pushes data onto the stack associated with a specific key.

push example #1

my $example = Example->new;

my $arguments = $example->push('steps', '#1');

push example #2

my $example = Example->new;

my $arguments = $example->push('steps', '#1', '#2');

set

set(Str $name, Any @args) : Any

The set method commits the data associated with a specific key to the channel.

set example #1

my $example = Example->new;

my $email = $example->set('email', 'try@example.com');

set example #2

my $example = Example->new;

my $email = $example->set('email', 'try@example.com', 'retry@example.com');

shift

shift(Str $name) : Any

The shift method shifts data off of the stack associated with a specific key.

shift example #1

my $example = Example->new;

my $steps = $example->shift('steps');

shift example #2

my $example = Example->new;

$example->set('steps', ['#1', '#2', '#3']);

my $steps = $example->shift('steps');

shiftunshift

shiftunshift(Str $name, Any @args) : ArrayRef[Any] | Any

The shiftunshift method calls "unshift" or "shift" based on the arguments provided. Allows you to easily create method-based accessors.

shiftunshift example #1

my $example = Example->new;

my $step = $example->shiftunshift('steps');

shiftunshift example #2

my $example = Example->new;

my $steps = $example->shiftunshift('steps', '#1', '#2');

unshift

unshift(Str $name, Any @value) : ArrayRef[Any] | Any

The unshift method unshifts data onto the stack associated with a specific key.

unshift example #1

my $example = Example->new;

my $arguments = $example->unshift('steps');

unshift example #2

my $example = Example->new;

my $arguments = $example->unshift('steps', '#1', '#2');

AUTHOR

Al Newkirk, awncorp@cpan.org

LICENSE

This is free software; you can redistribute it and/or modify it under the terms of the The Apache License, Version 2.0, as elucidated in the "license file".