File Coverage

blib/lib/Venus/Role/Superable.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	21	22	95.4

package Venus::Role::Superable;

use 5.018;

use strict;
use warnings;

use Venus::Role 'with';

# METHODS

sub super {
  require mro;
  goto \&next::method
}

# EXPORTS

sub EXPORT {
  ['super']
}

1;



=head1 NAME

Venus::Role::Superable - Superable Role

=cut

=head1 ABSTRACT

Superable Role for Perl 5

=cut

=head1 SYNOPSIS

  package Example;

  use Venus::Class;

  with 'Venus::Role::Superable';

  package main;

  my $example = Example->new;

  # $example->super;

=cut

=head1 DESCRIPTION

This package modifies the consuming package and provides methods for
dispatching to superclasses using L.

=cut

=head1 METHODS

This package provides the following methods:

=cut

=head2 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.

I>

=over 4

=item 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;

=back

=cut

=head1 AUTHORS

Awncorp, C

=cut

=head1 LICENSE

Copyright (C) 2000, Awncorp, C.

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

=cut