Venus::Role::Accessible

Accessible Role

Accessible Role for Perl 5

method: access method: assign

package Example;

use Venus::Class;

with 'Venus::Role::Accessible';

attr 'value';

sub downcase {
  lc $_[0]->value
}

sub upcase {
  uc $_[0]->value
}

package main;

my $example = Example->new(value => 'hello, there');

# $example->value;

This package modifies the consuming package and provides the access method for getting and setting attributes.

The access method gets or sets the class attribute specified.

access(Str $name, Any $value) (Any)

{ since => '1.23', }

=example-1 access

# given: synopsis

package main;

my $access = $example->access;

# undef

The assign method dispatches the method call or executes the callback, sets the class attribute specified to the result, and returns the result.

assign(Str $name, Str | CodeRef $code, Any @args) (Any)

{ since => '1.23', }

=example-1 assign

# given: synopsis

package main;

my $assign = $example->assign('value', 'downcase');

# "hello, there"

t/Venus.t: pdml: authors t/Venus.t: pdml: license