File Coverage

blib/lib/MooX/Attributes/Shadow/Role.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	6	6	100.0
condition	5	6	83.3
subroutine	12	12	100.0
pod	5	5	100.0
total	68	69	98.5

package MooX::Attributes::Shadow::Role;

# ABSTRACT: enumerate shadowable attributes in a contained class

use strict;

our $VERSION = '0.04'; # TRIAL

use Moo::Role;

use namespace::clean;

use MooX::Attributes::Shadow;

# make sure we have symbols in this package, so namespace clean test passes.
sub shadow_attrs { goto \&MooX::Attributes::Shadow::shadow_attrs };
sub shadowed_attrs { goto \&MooX::Attributes::Shadow::shadowed_attrs };
sub xtract_attrs { goto \&MooX::Attributes::Shadow::xtract_attrs };

## no critic (ProhibitSubroutinePrototypes)
sub shadowable_attrs (@) {

    my $attrs = [@_];

    ## no critic (ProhibitNoStrict)
    no strict 'refs';
    no warnings 'redefine';

    *{ caller() . '::shadowable_attrs' } = sub (@) { @{$attrs} };

    return;
}

sub new_from_attrs (@) {

    my $contained = shift;

    my $container = shift;

    # handle the following cases:
    # @args = ( \%options );
    # @args = ( \%options, %attr );
    # @args = ( \%options, \%attrs );
    # @args = ( %attr );

    my $options = {};
    my %attrs;

    if ( @_ == 1 ) {

        $options = shift;

    }

    elsif ( @_ == 2 && 'HASH' eq ref $_[0] && 'HASH' eq ref $_[1] ) {

        $options = shift;
        %attrs = %{ shift() };

    }

    elsif ( @_ % 2 ) {

        $options = shift;
        %attrs = @_;

    }

    else {

        %attrs = @_;

    }

    return $contained->new( $contained->xtract_attrs( $container, $options ), %attrs );
}

1;

#
# This file is part of MooX-Attributes-Shadow
#
# This software is Copyright (c) 2018 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__