File Coverage

blib/lib/Acme/Mitey/Cards/Card/Joker.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             package Acme::Mitey::Cards::Card::Joker;
4 4     4   30 use strict;
  4         9  
  4         119  
5 4     4   24 use warnings;
  4         8  
  4         112  
6 4     4   20 no warnings qw( once void );
  4         8  
  4         521  
7              
8             our $USES_MITE = "Mite::Class";
9             our $MITE_SHIM = "Acme::Mitey::Cards::Mite";
10             our $MITE_VERSION = "0.011000";
11              
12             # Mite keywords
13             BEGIN {
14 4     4   19 my ( $SHIM, $CALLER ) =
15             ( "Acme::Mitey::Cards::Mite", "Acme::Mitey::Cards::Card::Joker" );
16             (
17             *after, *around, *before, *extends, *field,
18             *has, *param, *signature_for, *with
19             )
20 4         10 = do {
21              
22             package Acme::Mitey::Cards::Mite;
23 4     4   29 no warnings 'redefine';
  4         12  
  4         886  
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       4     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 4     4   20 sub { $SHIM->HANDLE_signature_for( $CALLER, "class", @_ ) },
33 0     0   0 sub { $SHIM->HANDLE_with( $CALLER, @_ ) },
34 4         765 );
35             };
36             }
37              
38             # Mite imports
39             BEGIN {
40 4     4   29 require Scalar::Util;
41 4         12 *STRICT = \&Acme::Mitey::Cards::Mite::STRICT;
42 4         10 *bare = \&Acme::Mitey::Cards::Mite::bare;
43 4         10 *blessed = \&Scalar::Util::blessed;
44 4         8 *carp = \&Acme::Mitey::Cards::Mite::carp;
45 4         8 *confess = \&Acme::Mitey::Cards::Mite::confess;
46 4         7 *croak = \&Acme::Mitey::Cards::Mite::croak;
47 4         7 *false = \&Acme::Mitey::Cards::Mite::false;
48 4         10 *guard = \&Acme::Mitey::Cards::Mite::guard;
49 4         8 *lazy = \&Acme::Mitey::Cards::Mite::lazy;
50 4         8 *lock = \&Acme::Mitey::Cards::Mite::lock;
51 4         18 *ro = \&Acme::Mitey::Cards::Mite::ro;
52 4         9 *rw = \&Acme::Mitey::Cards::Mite::rw;
53 4         15 *rwp = \&Acme::Mitey::Cards::Mite::rwp;
54 4         6 *true = \&Acme::Mitey::Cards::Mite::true;
55 4         183 *unlock = \&Acme::Mitey::Cards::Mite::unlock;
56             }
57              
58             BEGIN {
59 4     4   646 require Acme::Mitey::Cards::Card;
60              
61 4     4   27 use mro 'c3';
  4         10  
  4         33  
62 4         10 our @ISA;
63 4         952 push @ISA, "Acme::Mitey::Cards::Card";
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             # Method signatures
86             our %SIGNATURE_FOR;
87              
88             $SIGNATURE_FOR{"to_string"} =
89             $Acme::Mitey::Cards::Card::SIGNATURE_FOR{"to_string"};
90              
91             1;
92             }