File Coverage

blib/lib/MooX/BuildClass/Utils.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	31	31	100.0

package MooX::BuildClass::Utils;

use strictures 2;

use Module::Runtime 'module_notional_filename';

use parent 'Exporter';

our @EXPORT_OK = qw( make_variant_package_name make_variant );

our $VERSION = '0.152690'; # VERSION

# ABSTRACT: methods for MooX::BuildClass and MooX::BuildRole

#
# This file is part of Throwable-SugarFactory
#
#
# Christian Walde has dedicated the work to the Commons by waiving all of his
# or her rights to the work worldwide under copyright law and all related or
# neighboring legal rights he or she had in the work, to the extent allowable by
# law.
#
# Works under CC0 do not require attribution. When citing the work, you should
# not imply endorsement by the author.
#


sub make_variant_package_name {
    my ( undef, $name ) = @_;

    my $path = module_notional_filename $name;
    die "Won't clobber already loaded: $path => $INC{$path}" if $INC{$path};

    return $name;
}


sub make_variant {
    my ( $class, undef, undef, @args ) = @_;
    while ( @args ) {
        my ( $func, $args ) = ( shift @args, shift @args );
        $args = [$args] if ref $args ne "ARRAY";
        $class->can( $func )->( @{$args} );
    }
    return;
}

1;

__END__