File Coverage

blib/lib/Mite/App/Command/exec.pm.mite.pm
Criterion Covered Total %
statement 36 49 73.4
branch 0 4 0.0
condition n/a
subroutine 10 19 52.6
pod 0 2 0.0
total 46 74 62.1


line stmt bran cond sub pod time code
1             {
2              
3             use strict;
4 16     16   108 use warnings;
  16         45  
  16         480  
5 16     16   91 no warnings qw( once void );
  16         59  
  16         552  
6 16     16   92  
  16         61  
  16         2079  
7             our $USES_MITE = "Mite::Class";
8             our $MITE_SHIM = "Mite::Shim";
9             our $MITE_VERSION = "0.010007";
10              
11             # Mite keywords
12             BEGIN {
13             my ( $SHIM, $CALLER ) =
14 16     16   98 ( "Mite::Shim", "Mite::App::Command::exec" );
15             (
16             *after, *around, *before, *extends, *field,
17             *has, *param, *signature_for, *with
18             )
19             = do {
20 16         39  
21             no warnings 'redefine';
22             (
23 16     16   107 sub { $SHIM->HANDLE_after( $CALLER, "class", @_ ) },
  16         46  
  16         3404  
24             sub { $SHIM->HANDLE_around( $CALLER, "class", @_ ) },
25 0     0   0 sub { $SHIM->HANDLE_before( $CALLER, "class", @_ ) },
26 16     16   113 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         2522  
35             # Mite imports
36             BEGIN {
37             require Scalar::Util;
38             *STRICT = \&Mite::Shim::STRICT;
39             *bare = \&Mite::Shim::bare;
40 16     16   112 *blessed = \&Scalar::Util::blessed;
41 16         54 *carp = \&Mite::Shim::carp;
42 16         60 *confess = \&Mite::Shim::confess;
43 16         31 *croak = \&Mite::Shim::croak;
44 16         33 *false = \&Mite::Shim::false;
45 16         30 *guard = \&Mite::Shim::guard;
46 16         37 *lazy = \&Mite::Shim::lazy;
47 16         37 *ro = \&Mite::Shim::ro;
48 16         31 *rw = \&Mite::Shim::rw;
49 16         32 *rwp = \&Mite::Shim::rwp;
50 16         595 *true = \&Mite::Shim::true;
51 16         42 }
52 16         39  
53 16         573 BEGIN {
54             require Mite::App::Command;
55              
56             use mro 'c3';
57 16     16   1106 our @ISA;
58             push @ISA, "Mite::App::Command";
59 16     16   116 }
  16         31  
  16         107  
60 16         63  
61 16         2413 # See UNIVERSAL
62             my ( $self, $role ) = @_;
63             our %DOES;
64             return $DOES{$role} if exists $DOES{$role};
65             return 1 if $role eq __PACKAGE__;
66 0     0 0   return $self->SUPER::DOES($role);
67 0           }
68 0 0          
69 0 0         # Alias for Moose/Moo-compatibility
70 0           shift->DOES(@_);
71             }
72              
73             1;
74