File Coverage

blib/lib/Mite/App/Command/exec.pm.mite.pm
Criterion Covered Total %
statement 38 53 71.7
branch 0 8 0.0
condition 0 9 0.0
subroutine 10 19 52.6
pod 0 2 0.0
total 48 91 52.7


line stmt bran cond sub pod time code
1             {
2              
3             use strict;
4 16     16   134 use warnings;
  16         40  
  16         572  
5 16     16   86 no warnings qw( once void );
  16         44  
  16         556  
6 16     16   94  
  16         57  
  16         2191  
7             our $USES_MITE = "Mite::Class";
8             our $MITE_SHIM = "Mite::Shim";
9             our $MITE_VERSION = "0.011000";
10              
11             # Mite keywords
12             BEGIN {
13             my ( $SHIM, $CALLER ) =
14 16     16   88 ( "Mite::Shim", "Mite::App::Command::exec" );
15             (
16             *after, *around, *before, *extends, *field,
17             *has, *param, *signature_for, *with
18             )
19             = do {
20 16         56  
21             no warnings 'redefine';
22             (
23 16     16   128 sub { $SHIM->HANDLE_after( $CALLER, "class", @_ ) },
  16         40  
  16         3659  
24             sub { $SHIM->HANDLE_around( $CALLER, "class", @_ ) },
25 0     0   0 sub { $SHIM->HANDLE_before( $CALLER, "class", @_ ) },
26 16     16   111 sub { },
27 0     0   0 sub { $SHIM->HANDLE_has( $CALLER, field => @_ ) },
28       16     sub { $SHIM->HANDLE_has( $CALLER, has => @_ ) },
29 0     0   0 sub { $SHIM->HANDLE_has( $CALLER, param => @_ ) },
30 0     0   0 sub { $SHIM->HANDLE_signature_for( $CALLER, "class", @_ ) },
31 0     0   0 sub { $SHIM->HANDLE_with( $CALLER, @_ ) },
32 0     0   0 );
33 0     0   0 }
34 16         3145  
35             # Mite imports
36             BEGIN {
37             require Scalar::Util;
38             *STRICT = \&Mite::Shim::STRICT;
39             *bare = \&Mite::Shim::bare;
40 16     16   151 *blessed = \&Scalar::Util::blessed;
41 16         59 *carp = \&Mite::Shim::carp;
42 16         45 *confess = \&Mite::Shim::confess;
43 16         51 *croak = \&Mite::Shim::croak;
44 16         496 *false = \&Mite::Shim::false;
45 16         50 *guard = \&Mite::Shim::guard;
46 16         49 *lazy = \&Mite::Shim::lazy;
47 16         47 *lock = \&Mite::Shim::lock;
48 16         47 *ro = \&Mite::Shim::ro;
49 16         37 *rw = \&Mite::Shim::rw;
50 16         44 *rwp = \&Mite::Shim::rwp;
51 16         320 *true = \&Mite::Shim::true;
52 16         63 *unlock = \&Mite::Shim::unlock;
53 16         40 }
54 16         36  
55 16         653 BEGIN {
56             require Mite::App::Command;
57              
58             use mro 'c3';
59 16     16   754 our @ISA;
60             push @ISA, "Mite::App::Command";
61 16     16   126 }
  16         46  
  16         138  
62 16         33  
63 16         3400 # See UNIVERSAL
64             my ( $self, $role ) = @_;
65             our %DOES;
66             return $DOES{$role} if exists $DOES{$role};
67             return 1 if $role eq __PACKAGE__;
68 0     0 0   if ( $INC{'Moose/Util.pm'}
69 0           and my $meta = Moose::Util::find_meta( ref $self or $self ) )
70 0 0         {
71 0 0         $meta->can('does_role') and $meta->does_role($role) and return 1;
72 0 0 0       }
      0        
73             return $self->SUPER::DOES($role);
74             }
75 0 0 0        
76             # Alias for Moose/Moo-compatibility
77 0           shift->DOES(@_);
78             }
79              
80             1;