File Coverage

blib/lib/Role/NotSoTiny/Creator.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	0	1	0.0
total	35	38	92.1

package Role::NotSoTiny::Creator;
$Role::NotSoTiny::Creator::VERSION = '0.1.0'; # TRIAL
use 5.010;
use strict;
use warnings;

use Role::NotSoTiny ();

use Carp 'croak';

sub create_role {
  my ( $class, $package, %args ) = @_;
  my $methods = $args{methods} // {};
  Role::NotSoTiny->make_role($package);
  for my $meth ( keys %$methods ) {
    my $code = $methods->{$meth};
    croak qq{Not a coderef: $meth ($code)} unless ref $code eq 'CODE';
    no strict 'refs';
    *{"${package}::${meth}"} = $code;
  }
  return $package;
}

1;

#pod =encoding utf8
#pod
#pod =head1 NAME
#pod
#pod Role::NotSoTiny::Creator - Experiment with Role::Tiny / Create roles programmatically
#pod
#pod =head1 SYNOPSIS
#pod
#pod   use Role::NotSoTiny::Creator ();
#pod
#pod   my $role = Role::NotSoTiny::Creator->create_role(
#pod     'Foo',
#pod     methods => {
#pod       foo => sub {...}
#pod     },
#pod   );
#pod
#pod   # runtime equivalent of
#pod   package Foo;
#pod   use Role::Tiny;
#pod   sub foo {...}
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module is an experiment with L.
#pod It illustrates how the change in L makes easier
#pod to build functionality such as a programmatic role creator.
#pod
#pod =head1 METHODS
#pod
#pod L implements the following methods.
#pod
#pod =head2 make_role
#pod
#pod   Role::NotSoTiny::Creator->create_role('Some::Package', methods => \%methods);
#pod
#pod Prepares a given package as a role.
#pod This is done by promoting the package to a L
#pod and adding the given methods to its stash.
#pod
#pod =cut

__END__