Venus::Role::Boxable

Boxable Role

Boxable Role for Perl 5

method: box method: boxed

package Example;

use Venus::Class;

with 'Venus::Role::Boxable';

attr 'text';

package main;

my $example = Example->new(text => 'hello, world');

# $example->box('text')->lc->ucfirst->concat('.')->unbox->get;

# "Hello, world."

This package modifies the consuming package and provides a method for boxing itself. This makes it possible to chain method calls across objects and values.

The box method returns the invocant boxed, i.e. encapsulated, using Venus::Box. This method supports dispatching, i.e. providing a method name and arguments whose return value will be acted on by this method.

box(string | coderef $method, any @args) (object)

{ since => '0.01', }

=example-1 box

package main;

my $example = Example->new(text => 'hello, world');

my $box = $example->box;

# bless({ value => bless(..., "Example") }, "Venus::Box")

The boxed method dispatches to "box" and returns the "unboxed" value. This method supports dispatching, i.e. providing a method name and arguments whose return value will be acted on by this method.

boxed(string | coderef $method, any @args) (object)

{ since => '4.15', }

=example-1 boxed

# given: synopsis

package main;

my $boxed = $example->boxed;

# bless(..., "Example")

t/Venus.t: present: authors t/Venus.t: present: license