File Coverage

blib/lib/MooX/Role/Parameterized/With.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	7	7	100.0
pod			n/a
total	34	36	94.4

package MooX::Role::Parameterized::With;

use strict;
use warnings;

our $VERSION = "0.501";

# ABSTRACT: MooX::Role::Parameterized:With - dsl to apply roles with composition parameters

use Carp                      qw(carp);
use MooX::Role::Parameterized qw();

sub import {
    my $target = caller;

    {
        my $orig = $target->can('with');
        carp "will redefine 'with' function"
          if $orig && $MooX::Role::Parameterized::VERBOSE;

        no strict 'refs';
        no warnings 'redefine';

        *{ $target . '::with' } =
          MooX::Role::Parameterized->build_apply_roles_to_package($orig);
    }
}

1;

__END__

=head1 NAME

MooX::Role::Parameterized:With - dsl to apply roles with composition parameters

=head1 SYNOPSIS

    package FooWith;

    use Moo;
    use MooX::Role::Parameterized::With; # overrides Moo::with

    with "Bar" => {           # apply parameterized role Bar once
        attr => 'baz',
        method => 'run'
    }, "Other::Role" => [     # apply parameterized role "Other::Role" twice
        { ... },              # with different parameters
        { ... },
    ],
    "Other::Role" => { ...},  # apply it again
    "Some::Moo::Role",
    "Some::Role::Tiny";

    has foo => ( is => 'ro'); # continue with normal Moo code

=head1 DESCRIPTION

This B<experimental> package try to offer an easy way to add parametrized roles.

Will load and apply L<MooX::Roles::Parameterized> roles, just need use this package
with a hash of role => parameters.

=head1 AUTHOR

Tiago Peczenyj <tiago (dot) peczenyj (at) gmail (dot) com>

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website