File Coverage

blib/lib/Mite/App/Command/compile.pm.mite.pm
Criterion Covered Total %
statement 38 54 70.3
branch 0 8 0.0
condition 0 9 0.0
subroutine 9 19 47.3
pod 0 2 0.0
total 47 92 51.0


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