Condition Coverage

blib/lib/Mouse/Util.pm
Criterion Covered Total %
condition 24 36 66.6


and 3 conditions

line !l l&&!r l&&r condition
73 283 0 0 $@ and $ENV{'MOUSE_XS'}
196 14 46 117 defined $meta && $meta->does_role($role_name)
202 3 2 49 &Scalar::Util::blessed($thing) || is_class_loaded($thing) and $thing->can('does')
331 197 53 35 $i + 1 < $max and ref $_[$i + 1] eq 'HASH'
391 979 0 0 exists $args{'longmess'} and not $args{'longmess'}

or 2 conditions

line l !l condition
63 283 0 eval sprintf("#line %d %s\n", 63, $hack_mouse_file) . "\n local \$^W = 0; # workaround 'redefine' warning to &install_subroutines\n no warnings 'redefine';\n require XSLoader;\n XSLoader::load('Mouse', \$VERSION);\n Mouse::Util->import({ into => 'Mouse::Meta::Method::Constructor::XS' }, ':meta');\n Mouse::Util->import({ into => 'Mouse::Meta::Method::Destructor::XS' }, ':meta');\n Mouse::Util->import({ into => 'Mouse::Meta::Method::Accessor::XS' }, ':meta');\n return 1;\n " || 0
193 1 0 $meta || 'Mouse::Meta::Class'
388 837 142 $args{'depth'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
55 0 0 283 defined &Mouse::Util::is_valid_class_name || $ENV{'MOUSE_PUREPERL'} || $ENV{'PERL_ONLY'}
202 47 4 3 &Scalar::Util::blessed($thing) || is_class_loaded($thing)
218 9 31 0 $cache{$cache_key}{$metaclass_name} ||= do { my $possible_full_name = join('::', 'Mouse::Meta', $type, 'Custom', $options{'trait'} ? 'Trait' : (), $metaclass_name); my $loaded_class = load_first_existing_class($possible_full_name, $metaclass_name); $loaded_class->can('register_implementation') ? $loaded_class->register_implementation : $loaded_class }
372 0 1 0 $feature ||= (caller 1)[3] . '()'
380 106 10 0 ref $_[0] || $_[0]