Venus::Role::Buildable - Buildable Role
Buildable Role for Perl 5
package Example; use Venus::Class; with 'Venus::Role::Buildable'; has 'test'; package main; my $example = Example->new; # $example->test;
This package modifies the consuming package and provides methods for hooking into object construction of the consuming class, e.g. handling single-arg object construction.
This package provides the following methods:
build_arg(Any $data) (HashRef)
The build_arg method, if defined, is only called during object construction when a single non-hashref is provided.
Since 0.01
0.01
package Example1; use Venus::Class; has 'x'; has 'y'; with 'Venus::Role::Buildable'; sub build_arg { my ($self, $data) = @_; $data = { x => $data, y => $data }; return $data; } package main; my $example = Example1->new(10); # $example->x; # $example->y;
build_args(HashRef $data) (HashRef)
The build_args method, if defined, is only called during object construction to hook into the handling of the arguments provided.
package Example2; use Venus::Class; has 'x'; has 'y'; with 'Venus::Role::Buildable'; sub build_args { my ($self, $data) = @_; $data->{x} ||= int($data->{x} || 100); $data->{y} ||= int($data->{y} || 100); return $data; } package main; my $example = Example2->new(x => 10, y => 10); # $example->x; # $example->y;
build_nil(HashRef $data) (Any)
The build_nil method, if defined, is only called during object construction when a single empty hashref is provided.
package Example4; use Venus::Class; has 'x'; has 'y'; with 'Venus::Role::Buildable'; sub build_nil { my ($self, $data) = @_; $data = { x => 10, y => 10 }; return $data; } package main; my $example = Example4->new({}); # $example->x; # $example->y;
build_self(HashRef $data) (Self)
The build_self method, if defined, is only called during object construction after all arguments have been handled and set.
package Example3; use Venus::Class; has 'x'; has 'y'; with 'Venus::Role::Buildable'; sub build_self { my ($self, $data) = @_; die if !$self->x; die if !$self->y; return $self; } package main; my $example = Example3->new(x => 10, y => 10); # $example->x; # $example->y;
Cpanery, cpanery@cpan.org
cpanery@cpan.org
Copyright (C) 2021, Cpanery
Read the "license" file.
To install Venus, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Venus
CPAN shell
perl -MCPAN -e shell install Venus
For more information on module installation, please visit the detailed CPAN module installation guide.