File Coverage

blib/lib/Acme/MilkyHolmes/Group/MilkyHolmes.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch	4	6	66.6
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	20	25	80.0

package Acme::MilkyHolmes::Group::MilkyHolmes;
use Mouse;
extends 'Acme::MilkyHolmes::Group::Detective';
with 'Acme::MilkyHolmes::Role::HasPersonalColor';

sub color_enable {
    my ($self) = shift;

    if ( @_ ) {
        $self->{color_enable} = $_[0];
    }
    else {
        if ( defined $self->{color_enable} ) {
            return $self->{color_enable}
        }
        if ( defined $self->common->[0]->{color_enable} ) {
            my $color_enable = $self->common->[0]->{color_enable} + 0;
            return $color_enable;
        }
    }
    return 1; #default is true
}


no Mouse;

1;