| blib/lib/Mouse/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 24 | 36 | 66.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 72 | 283 | 0 | 0 | $@ and $ENV{'MOUSE_XS'} |
| 195 | 14 | 46 | 117 | defined $meta && $meta->does_role($role_name) |
| 201 | 3 | 2 | 49 | &Scalar::Util::blessed($thing) || is_class_loaded($thing) and $thing->can('does') |
| 322 | 197 | 53 | 35 | $i + 1 < $max and ref $_[$i + 1] eq 'HASH' |
| 382 | 979 | 0 | 0 | exists $args{'longmess'} and not $args{'longmess'} |
| 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 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 |
| 192 | 1 | 0 | $meta || 'Mouse::Meta::Class' |
| 379 | 837 | 142 | $args{'depth'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 55 | 0 | 0 | 283 | defined &Mouse::Util::is_valid_class_name || $ENV{'MOUSE_PUREPERL'} || $ENV{'PERL_ONLY'} |
| 201 | 47 | 4 | 3 | &Scalar::Util::blessed($thing) || is_class_loaded($thing) |
| 217 | 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 } |
| 363 | 0 | 1 | 0 | $feature ||= (caller 1)[3] . '()' |
| 371 | 106 | 0 | 10 | ref $_[0] || $_[0] |