File Coverage

blib/lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm
Criterion Covered Total %
statement 28 35 80.0
branch 3 8 37.5
condition 1 9 11.1
subroutine 9 9 100.0
pod 0 2 0.0
total 41 63 65.0


line stmt bran cond sub pod time code
1             {
2              
3             package Sub::HandlesVia::Toolkit::Plain;
4 3     3   23 use strict;
  3         6  
  3         130  
5 3     3   19 use warnings;
  3         6  
  3         98  
6 3     3   18 no warnings qw( once void );
  3         6  
  3         391  
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 3     3   14 my ( $SHIM, $CALLER ) =
15             ( "Sub::HandlesVia::Mite", "Sub::HandlesVia::Toolkit::Plain" );
16             ( *after, *around, *before, *extends, *has, *signature_for, *with ) =
17 3         5 do {
18              
19             package Sub::HandlesVia::Mite;
20 3     3   22 no warnings 'redefine';
  3         7  
  3         621  
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 3         190 );
30             };
31             }
32              
33             BEGIN {
34 3     3   1452 require Sub::HandlesVia::Toolkit;
35              
36 3     3   21 use mro 'c3';
  3         9  
  3         23  
37 3         9 our @ISA;
38 3         631 push @ISA, "Sub::HandlesVia::Toolkit";
39             }
40              
41             # See UNIVERSAL
42             sub DOES {
43 21     21 0 45 my ( $self, $role ) = @_;
44 21         27 our %DOES;
45 21 50       47 return $DOES{$role} if exists $DOES{$role};
46 21 50       40 return 1 if $role eq __PACKAGE__;
47 21 50 0     75 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 21         61 return $self->SUPER::DOES($role);
53             }
54              
55             # Alias for Moose/Moo-compatibility
56             sub does {
57 21     21 0 1288 shift->DOES(@_);
58             }
59              
60             1;
61             }