File Coverage

blib/lib/Sub/HandlesVia/Toolkit/Moose.pm.mite.pm
Criterion Covered Total %
statement 28 35 80.0
branch 3 8 37.5
condition 2 9 22.2
subroutine 9 9 100.0
pod 0 2 0.0
total 42 63 66.6


line stmt bran cond sub pod time code
1             {
2              
3             package Sub::HandlesVia::Toolkit::Moose;
4 22     22   161 use strict;
  22         51  
  22         691  
5 22     22   126 use warnings;
  22         52  
  22         714  
6 22     22   121 no warnings qw( once void );
  22         54  
  22         3168  
7              
8             our $USES_MITE = "Mite::Class";
9             our $MITE_SHIM = "Sub::HandlesVia::Mite";
10             our $MITE_VERSION = "0.012000";
11              
12             # Mite keywords
13             BEGIN {
14 22     22   113 my ( $SHIM, $CALLER ) =
15             ( "Sub::HandlesVia::Mite", "Sub::HandlesVia::Toolkit::Moose" );
16             ( *after, *around, *before, *extends, *has, *signature_for, *with ) =
17 22         47 do {
18              
19             package Sub::HandlesVia::Mite;
20 22     22   169 no warnings 'redefine';
  22         55  
  22         4853  
21             (
22 0         0 sub { $SHIM->HANDLE_after( $CALLER, "class", @_ ) },
23 0         0 sub { $SHIM->HANDLE_around( $CALLER, "class", @_ ) },
24 0         0 sub { $SHIM->HANDLE_before( $CALLER, "class", @_ ) },
25             sub { },
26 0         0 sub { $SHIM->HANDLE_has( $CALLER, has => @_ ) },
27 0         0 sub { $SHIM->HANDLE_signature_for( $CALLER, "class", @_ ) },
28 0         0 sub { $SHIM->HANDLE_with( $CALLER, @_ ) },
29 22         1407 );
30             };
31             }
32              
33             BEGIN {
34 22     22   11836 require Sub::HandlesVia::Toolkit;
35              
36 22     22   191 use mro 'c3';
  22         71  
  22         261  
37 22         92 our @ISA;
38 22         5384 push @ISA, "Sub::HandlesVia::Toolkit";
39             }
40              
41             # See UNIVERSAL
42             sub DOES {
43 154     154 0 353 my ( $self, $role ) = @_;
44 154         225 our %DOES;
45 154 50       371 return $DOES{$role} if exists $DOES{$role};
46 154 50       327 return 1 if $role eq __PACKAGE__;
47 154 50 33     854 if ( $INC{'Moose/Util.pm'}
      33        
48             and my $meta = Moose::Util::find_meta( ref $self or $self ) )
49             {
50 0 0 0     0 $meta->can('does_role') and $meta->does_role($role) and return 1;
51             }
52 154         1718 return $self->SUPER::DOES($role);
53             }
54              
55             # Alias for Moose/Moo-compatibility
56             sub does {
57 154     154 0 128112 shift->DOES(@_);
58             }
59              
60             1;
61             }