File Coverage

lib/Mojo/Role.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	2	2	100.0
condition	2	3	66.6
subroutine	5	7	71.4
pod			n/a
total	29	33	87.8

package Mojo::Role;

# imports
use Mojo::Base -strict;
use Role::Tiny       ();
use Role::Tiny::With ();
use Mojo::Util       ();

# version
our $VERSION = '0.999';

sub import {
  # caller is a consumer, import with
  # it is assumed that the caller's Mojo::Base imported strict already
  if (@_ > 1 and $_[1] eq '-with') {
    @_ = 'Role::Tiny::With';
    goto &Role::Tiny::With::import;
  }

  # the caller is a role
  # roles are strict
  Mojo::Base->import('-strict');
  my $target = caller;
  Mojo::Util::monkey_patch $target, has => sub { Mojo::Base::attr($target, @_) };

  @_ = 'Role::Tiny';
  goto &Role::Tiny::import;
}

1;
__END__