lib/Enigmatic/Role/WithWiring.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package Enigmatic::Role::WithWiring; 
use DAKKAR::p 'role';
 
requires 'BUILDARGS';
requires 'wiring';
 
around BUILDARGS => sub {
    my $orig  = shift;
    my $class = shift;
 
    if ( @_ == 1 && !ref $_[0] ) {
        return $class->$orig( wiring => $_[0] );
    }
    else {
        return $class->$orig(@_);
    }
};