File Coverage

lib/Mojo/Role.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	2	2	100.0
condition	2	3	66.6
subroutine	7	8	87.5
pod			n/a
total	41	44	93.1

package Mojo::Role;

# ABSTRACT: Mojo::Role - Tiny and simple role system for Mojo

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

# version
our $VERSION = 0.021;

sub import {
  $_->import for qw(strict warnings utf8);
  feature->import(':5.10');

  # import with
  if (@_ > 1 and $_[1] eq '-with') {
    @_ = 'Role::Tiny::With';
    goto &Role::Tiny::With::import;
  }

  my $target = caller;
  my $has = sub { Mojo::Base::attr($target, @_) };
  { no strict 'refs'; *{"${target}::has"} = $has }

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

1;
__END__