File Coverage

blib/lib/Mite/Role/Tiny.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 2 2 100.0
subroutine 6 6 100.0
pod 0 2 0.0
total 26 28 92.8


line stmt bran cond sub pod time code
1 7     7   157 use 5.010001;
  7         25  
2 7     7   37 use strict;
  7         14  
  7         324  
3 7     7   36 use warnings;
  7         17  
  7         319  
4              
5             use Mite::Miteception -all;
6 7     7   40 extends qw(Mite::Role);
  7         14  
  7         51  
7              
8             our $AUTHORITY = 'cpan:TOBYINK';
9             our $VERSION = '0.010008';
10              
11             my ( $class, $rolename, %args ) = @_;
12              
13 2     2 0 5 return $class->new(
14             %args,
15             name => $rolename,
16             attributes => {},
17             roles => [],
18             required_methods => ( $Role::Tiny::INFO{$rolename}{requires} ||= [] ),
19             );
20 2   100     23 }
21              
22             my $self = shift;
23              
24             my $rt_methods = 'Role::Tiny'->_concrete_methods_of( $self->name );
25 2     2 0 3 my %mr_methods = map {
26             $_ => sprintf '%s::%s', $self->name, $_;
27 2         15 } keys %$rt_methods;
28              
29 2         252 return \%mr_methods;
  3         13  
30             }
31              
32 2         8 1;