Venus::Core::Role

Role Base Class

Role Base Class for Perl 5

method: import method: does method: meta method: unimport

package Person;

use base 'Venus::Core::Role';

package User;

use base 'Venus::Core::Class';

package main;

my $user = User->ROLE('Person')->new(
  fname => 'Elliot',
  lname => 'Alderson',
);

# bless({fname => 'Elliot', lname => 'Alderson'}, 'User')

This package provides a role base class with role building and object construction lifecycle hooks.

Venus::Core

The import method throws a fatal exception whenever the "use" in perlfunc declaration is used with roles as they are meant to be consumed via the with or role keyword functions.

import(any @args) (any)

{ since => '2.91', }

=example-1 import

package main;

use Person;

# Exception! (isa Venus::Fault)

The does method returns true if the object is composed of the role provided.

does(string $name) (boolean)

{ since => '1.00', }

=example-1 does

package Employee;

use base 'Venus::Core::Role';

Employee->ROLE('Person');

package main;

my $user = User->ROLE('Employee')->new(
  fname => 'Elliot',
  lname => 'Alderson',
);

my $does = Employee->does('Person');

# 1

The meta method returns a Venus::Meta objects which describes the package's configuration.

meta() (Venus::Meta)

{ since => '1.00', }

=example-1 meta

package main;

my $user = User->ROLE('Person')->new(
  fname => 'Elliot',
  lname => 'Alderson',
);

my $meta = Person->meta;

# bless({...}, 'Venus::Meta')

The unimport method invokes the UNIMPORT lifecycle hook and is invoked whenever the "no" in perlfunc declaration is used.

unimport(any @args) (any)

{ since => '2.91', }

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