NAME

Venus::Role::Superable - Superable Role

ABSTRACT

Superable Role for Perl 5

SYNOPSIS

package Example;

use Venus::Class;

with 'Venus::Role::Superable';

package main;

my $example = Example->new;

# $example->super;

DESCRIPTION

This package modifies the consuming package and provides methods for dispatching to superclasses using "next::method" in mro.

METHODS

This package provides the following methods:

super

super(any @args) (any)

The super method dispatches to superclasses uses the C3 method resolution order to get better consistency in multiple inheritance situations.

Since 3.55

super example 1

package Example::A;

use Venus::Class;

sub test {
  my ($self, @args) = @_;

  return [$self, @args];
}

package Example::B;

use Venus::Class;

base 'Example::A';

with 'Venus::Role::Superable';

sub test {
  my ($self) = @_;

  return $self->super(1..4);
}

package main;

my $example = Example::B->new;

my $result = $example->test;

AUTHORS

Awncorp, awncorp@cpan.org

LICENSE

Copyright (C) 2022, Awncorp, awncorp@cpan.org.

This program is free software, you can redistribute it and/or modify it under the terms of the Apache license version 2.0.