File Coverage

blib/lib/Mite/App/Command/preview.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   106 use warnings;
  16         35  
  16         464  
5 16     16   84 no warnings qw( once void );
  16         44  
  16         614  
6 16     16   97  
  16         32  
  16         2284  
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   97 ( "Mite::Shim", "Mite::App::Command::preview" );
15             (
16             *after, *around, *before, *extends, *field,
17             *has, *param, *signature_for, *with
18             )
19             = do {
20 16         37  
21             no warnings 'redefine';
22             (
23 16     16   104 sub { $SHIM->HANDLE_after( $CALLER, "class", @_ ) },
  16         32  
  16         3460  
24             sub { $SHIM->HANDLE_around( $CALLER, "class", @_ ) },
25 0     0   0 sub { $SHIM->HANDLE_before( $CALLER, "class", @_ ) },
26 16     16   217 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         2607  
35             # Mite imports
36             BEGIN {
37             require Scalar::Util;
38             *STRICT = \&Mite::Shim::STRICT;
39             *bare = \&Mite::Shim::bare;
40 16     16   138 *blessed = \&Scalar::Util::blessed;
41 16         59 *carp = \&Mite::Shim::carp;
42 16         40 *confess = \&Mite::Shim::confess;
43 16         33 *croak = \&Mite::Shim::croak;
44 16         40 *false = \&Mite::Shim::false;
45 16         44 *guard = \&Mite::Shim::guard;
46 16         45 *lazy = \&Mite::Shim::lazy;
47 16         52 *ro = \&Mite::Shim::ro;
48 16         41 *rw = \&Mite::Shim::rw;
49 16         29 *rwp = \&Mite::Shim::rwp;
50 16         39 *true = \&Mite::Shim::true;
51 16         42 }
52 16         45  
53 16         633 BEGIN {
54             require Mite::App::Command;
55              
56             use mro 'c3';
57 16     16   5920 our @ISA;
58             push @ISA, "Mite::App::Command";
59 16     16   130 }
  16         56  
  16         412  
60 16         54  
61 16         1970 # 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