File Coverage

blib/lib/Squirrel/Role.pm
Criterion Covered Total %
statement 12 13 92.3
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Squirrel::Role;
2 1     1   563 use strict;
  1         3  
  1         22  
3 1     1   5 use warnings;
  1         1  
  1         21  
4              
5 1     1   4 use base qw(Squirrel);
  1         2  
  1         288  
6              
7             sub _choose_backend {
8 1 50   1   3 if ( $INC{"Moose/Role.pm"} ) {
9             return {
10 0         0 backend => 'Moose::Role',
11             import => \&Moose::Role::import,
12             unimport => \&Moose::Role::unimport,
13             }
14             }
15             else {
16 1         287 require Mouse::Role;
17             return {
18 1         13 backend => 'Mouse::Role',
19             import => \&Mouse::Role::import,
20             unimport => \&Mouse::Role::unimport,
21             }
22             }
23             }
24              
25             1;
26              
27             __END__