Branch Coverage

blib/lib/Mouse/Tiny.pm
Criterion Covered Total %
branch 175 946 18.5


line true false branch
50 0 8 if ref $class
51 0 8 unless defined $class
53 8 0 if $class =~ /\A \w+ (?: :: \w+ )* \z/msx
61 0 8 if ref $class or not defined $class or not length $class
69 0 24 unless exists $pack->{$part}
72 0 24 if ref $entry ne 'GLOB'
76 0 8 unless %{$pack;}
80 0 0 if exists $pack->{'VERSION'} and defined *{$pack->{'VERSION'};}{'SCALAR'} and defined ${$$pack{'VERSION'};}
82 0 0 if exists $pack->{'ISA'} and defined *{$pack->{'ISA'};}{'ARRAY'} and @{$pack->{'ISA'};} != 0
87 8 4 if ref $entry ne 'GLOB' or defined *{$entry;}{'CODE'}
98 0 12 unless ref $coderef
101 0 12 unless $cv->isa('B::CV')
104 0 12 unless $gv->isa('B::GV')
113 0 0 unless $cv->isa('B::CV')
116 0 0 unless $gv->isa('B::GV')
132 0 0 if &Scalar::Util::blessed($_[0])
134 0 4 if (defined $name)
149 0 8 if (&Scalar::Util::blessed($instance))
151 0 0 unless ($instance->can($method))
160 6 0 if (defined $name)
174 0 0 unless not $_[0]
177 0 0 if defined $_[0]
208 0 0 if &Scalar::Util::blessed($_[0])
219 0 0 unless &$check($value)
231 0 0 unless &$check($value)
263 0 8 unless (defined $name)
266 0 8 unless (defined $code)
270 0 8 if (ref $code ne 'CODE')
286 0 4 if (@_)
291 4 4 unless my $meta = Mouse::Util::get_metaclass_by_name($class)
294 0 4 if (exists $meta->{$name})
308 0 0 unless $_[0]{'method_metaclass'}
309 4 0 unless $_[0]{'attribute_metaclass'}
311 4 0 unless $_[0]{'constructor_class'}
312 0 0 unless $_[0]{'destructor_class'}
324 4 0 @_ == 1 ? :
330 0 4 if ($object->can('BUILD'))
346 0 0 unless &Scalar::Util::blessed($object) and $object->isa($class->name)
388 0 0 if (defined $init_arg)
394 0 0 unless (exists $init_args{$key})
407 0 0 unless $_[0]{'method_metaclass'}
457 4 0 unless $_[0]{'accessor_metaclass'}
476 0 4 if defined $instance and ref $value eq 'CODE'
514 0 4 unless defined $name
517 4 0 unless (exists $args->{'init_arg'})
524 0 4 if (exists $args->{'builder'}) { }
0 4 elsif (exists $args->{'default'}) { }
530 0 0 unless defined $args->{'builder'}
535 0 0 if (ref $args->{'default'} and ref $args->{'default'} ne 'CODE')
542 0 4 if ($args->{'required'} and not $can_be_required)
548 4 0 if (exists $args->{'is'})
551 0 4 if ($is eq 'ro') { }
4 0 elsif ($is eq 'rw') { }
0 0 elsif ($is eq 'bare') { }
555 0 4 if (exists $args->{'writer'}) { }
566 0 0 unless defined $is
572 0 4 if (exists $args->{'isa'})
576 0 4 if (exists $args->{'does'})
577 0 0 if (defined $tc) { }
582 0 0 unless ($does_ok)
591 0 4 if ($args->{'coerce'})
592 0 0 unless defined $tc
596 0 0 if $args->{'weak_ref'}
599 0 4 if ($args->{'lazy_build'})
601 0 0 if exists $args->{'default'}
605 0 0 if ($name =~ /^_/) { }
615 0 4 if ($args->{'auto_deref'})
616 0 0 unless defined $tc
619 0 0 unless $tc->is_a_type_of('ArrayRef') or $tc->is_a_type_of('HashRef')
623 0 4 if (exists $args->{'trigger'})
625 0 0 unless 'CODE' eq ref $args->{'trigger'}
628 0 4 if ($args->{'lazy'})
630 0 0 unless exists $args->{'default'} or defined $args->{'builder'}
665 0 6 if ($parent->{'hand_optimized_type_constraint'}) { }
0 6 elsif ($parent->{'constraint'}) { }
675 0 6 if ($self->{'constraint'})
679 0 6 if ($self->{'type_constraints'})
683 0 0 if &$c($_[0])
689 6 0 if (@checks == 0) { }
697 0 0 unless &$c(@args)
717 0 8 if (scalar @_ == 1) { }
718 0 0 unless ref $_[0] eq 'HASH'
737 4 0 unless $self->can('DEMOLISH')
761 0 0 if $e
768 0 0 unless $self->can('BUILD')
834 2 8 if ($args{'also'}) { }
841 2 2 unless my $also = $SPEC{$current}{'also'}
842 0 2 ref $also ? :
856 0 12 unless my $spec = $SPEC{$package}
858 10 2 if (my $as_is = $spec->{'as_is'})
862 12 128 if (ref $thingy) { }
875 128 12 if ($code_package eq $package)
881 6 6 if (my $init_meta = $package->can('init_meta'))
882 6 0 unless (grep {$_ == $init_meta;} @init_meta_methods)
892 2 8 if (my $default_list = $args{'groups'}{'default'}) { }
905 6 4 if (@init_meta_methods)
919 0 36 ref $args[0] ? :
926 0 28 if ($arg =~ s/^-//) { }
22 6 elsif ($arg =~ s/^://) { }
927 0 0 if ($arg eq 'traits') { }
928 0 0 ref $args[0] ? :
947 4 32 if ($spec->{'INIT_META'}) { }
0 32 elsif (@traits) { }
953 0 4 if (@traits)
956 0 0 ref $_ ? :
962 0 0 Mouse::Util::is_a_metarole($into->meta) ? :
974 24 12 if (@exports) { }
1005 0 0 unless exists $stash->{$keyword}
1009 0 0 if (ref $gv eq 'GLOB' and *{$gv;}{'CODE'} == $spec->{'EXPORTS'}{$keyword})
1021 0 36 if (ref $arg) { }
1024 0 0 defined $arg->{'into_level'} ? :
0 0 defined $arg->{'into'} ? :
1091 0 2 if ($xs)
1104 0 0 if $@ and $ENV{'MOUSE_XS'}
1107 2 0 unless ($xs)
1118 2 0 if ($] >= 5.01) { }
1134 0 0 if exists $stored{$p}
1154 0 0 unless (defined $type)
1155 0 0 exists $Class::C3::MRO{$classname} ? :
1157 0 0 if ($type eq 'c3') { }
1200 2 0 if (defined ${^GLOBAL_PHASE}) { }
1224 0 0 unless defined $role_name
1233 0 0 if (&Scalar::Util::blessed($thing) || is_class_loaded($thing) and $thing->can('does'))
1247 0 0 $options{'trait'} ? :
1252 0 0 $options{'trait'} ? :
1260 0 0 $loaded_class->can('register_implementation') ? :
1277 0 0 unless my(@classes) = @_
1284 0 0 if ($e) { }
1306 0 8 unless (is_valid_class_name($class))
1307 0 0 defined $class ? :
1311 8 0 if is_class_loaded($class)
1327 0 8 if $e
1334 0 0 &Scalar::Util::blessed($_[0]) ? :
1345 0 0 if (ref $role) { }
1354 0 0 if ($i + 1 < $max and ref $_[$i + 1] eq 'HASH') { }
1359 0 0 unless is_a_metarole($role)
1363 0 0 if (scalar @roles == 1) { }
1365 0 0 defined $params ? :
1375 0 0 if @_ == 1
1379 0 0 if @items == 2
1414 0 0 if (exists $args{'longmess'} and not $args{'longmess'}) { }
1428 0 0 defined $maxdepth ? :
1447 0 46 @_ == 1 ? :
1449 0 46 unless defined $args{'name'}
1452 44 2 if (defined $args{'parent'})
1461 0 44 if (defined(my $parent_tp = $args{'parent'}{'type_parameter'}))
1462 0 0 if ($parent_tp != $type_parameter) { }
1463 0 0 unless $type_parameter->is_a_type_of($parent_tp)
1476 40 6 if ($check = delete $args{'optimized'}) { }
0 6 elsif (defined $type_parameter) { }
1488 0 0 if (defined(my $my_check = $args{'constraint'})) { }
1502 0 46 if (defined $check and ref $check ne 'CODE')
1509 6 40 unless $args{'hand_optimized_type_constraint'}
1511 0 46 if ($args{'type_constraints'})
1513 0 0 if ($type->has_coercion)
1548 0 0 if (exists $self->{'type_constraints'})
1560 0 0 if (exists $has{$from})
1564 0 0 unless my $type = Mouse::Util::TypeConstraints::find_or_parse_type_constraint($from)
1579 0 0 if defined $coercion
1581 0 0 if (not $self->{'type_constraints'}) { }
1592 0 0 if ($pair->[0]->($thing))
1602 0 0 if ($type->has_coercion)
1606 0 0 if (@coercions)
1611 0 0 if $self->check($value)
1623 0 0 if $self->check(@_)
1625 0 0 unless my $coercion = $self->_compiled_type_coercion
1632 0 0 if (my $msg = $self->message) { }
1636 0 0 if (not defined $value) { }
0 0 elsif (ref $value and defined &overload::StrVal) { }
1650 0 0 if not ref $other and $other eq '__ANON__'
1654 0 0 if $self->name eq $other_name
1656 0 0 if (exists $self->{'type_constraints'})
1658 0 0 if $type->name eq $other_name
1663 0 0 if $p->name eq $other_name
1673 0 0 unless (ref $param)
1689 0 0 unless ($self->check($value))
1818 0 4 if (@_ == 1 and ref $_[0]) { }
0 4 elsif (@_ == 2 and ref $_[1]) { }
4 0 elsif (@_ % 2) { }
1832 0 4 unless (defined $name)
1839 0 4 if ($is_subtype and not $parent)
1844 4 0 if (defined $parent)
1848 4 0 if (defined $name)
1851 4 0 unless ($this)
1853 0 4 unless ($this =~ /\A Mouse \b/msx)
1858 0 4 if (defined $TYPE{$name})
1860 0 0 if ($this ne $that)
1862 0 0 if ($that eq 'Mouse::Util::TypeConstraints')
1865 0 0 scalar grep({$name eq $_;} list_all_builtin_type_constraints()) ? :
1875 0 4 if exists $args{'where'}
1876 4 0 if exists $args{'optimized_as'}
1880 4 0 if (defined $name) { }
1898 0 0 unless my $type = find_type_constraint($type_name)
1940 0 0 if (ref $_[0] ne 'ARRAY')
1944 0 0 @_ == 1 && ref $_[0] eq 'ARRAY' ? :
1964 0 0 unless (@_ == 1 and ref $_[0] eq 'ARRAY')
1969 0 0 @_ == 1 && ref $_[0] eq 'ARRAY' ? :
1983 0 0 if exists $TYPE{$spec}
1987 0 0 unless (defined $meta)
1988 0 0 $create ? :
1991 0 0 if (Mouse::Util::is_a_metarole($meta)) { }
2008 0 0 if grep {not defined $_;} @_
2010 0 0 $_->{'type_constraints'} ? :
2027 0 0 if ($c->{'spec'} =~ s/^\[//)
2030 0 0 if ($c->{'spec'} =~ s/^\]//)
2043 0 0 if ($c->{'spec'} =~ s/\A ([\w.:]+) //msx)
2056 0 0 if (defined $type) { }
0 0 elsif (defined $param) { }
2057 0 0 if (defined $param) { }
2077 0 0 if ($c->{'spec'})
2082 0 0 if (@types)
2092 0 4 if Mouse::Util::is_a_type_constraint($spec) or not defined $spec
2100 0 0 unless Mouse::Util::is_a_type_constraint($constraint)
2107 0 4 if Mouse::Util::is_a_type_constraint($spec) or not defined $spec
2112 4 0 if (defined $tc)
2122 0 0 if ($context{'spec'})
2132 0 0 defined $tc ? :
2138 4 0 defined $tc ? :
2190 0 4 if @_ % 2
2193 0 4 ref $name ? :
2233 0 0 if defined $SUPER_PACKAGE and $SUPER_PACKAGE ne caller()
2234 0 0 unless defined $SUPER_BODY
2248 0 0 if (my $body = $INNER_BODY{$pkg}) { }
2270 0 4 unless my $class = $args{'for_class'}
2281 4 0 unless $meta->superclasses
2285 4 0 unless Mouse::Util::TypeConstraints::find_type_constraint($class)
2357 0 4 if (@bad and $class ne 'Mouse::Meta::Attribute')
2368 0 4 if (@bad)
2375 0 4 if ($class ne 'Mouse::Meta::Attribute')
2381 0 0 unless $_[0]->has_reader
2382 0 0 unless $_[0]->has_writer
2384 0 0 unless $_[0]->reader
2385 0 0 unless $_[0]->writer
2402 0 4 if (my $metaclass = delete $args->{'metaclass'})
2407 0 4 if (my $traits_ref = delete $args->{'traits'})
2412 0 0 if $class->does($trait)
2417 0 0 if ref $$traits_ref[$i + 1]
2421 0 0 if (@traits)
2437 0 0 unless $type_constraint
2438 0 0 if $type_constraint->check($value)
2462 0 0 if (exists $args->{$illegal} and exists $self->{$illegal})
2468 0 0 unless (exists $args->{$name})
2474 0 0 if @traits
2478 0 0 if ($attr =~ /\A _mouse_cache_/msx)
2484 0 0 if ($args->{'lazy_build'})
2499 0 0 if ($accessor) { }
2547 4 16 if (exists $attribute->{$type})
2563 0 4 if (exists $attribute->{'handles'})
2566 0 0 if 'Mouse::Object'->can($handle)
2568 0 0 if ($metaclass->has_method($handle))
2592 0 0 if ($handle_type eq 'HASH') { }
0 0 elsif ($handle_type eq 'ARRAY') { }
0 0 elsif ($handle_type eq 'Regexp') { }
0 0 elsif ($handle_type eq 'CODE') { }
2601 0 0 Mouse::Util::is_a_metarole($meta) ? :
2617 0 0 if ($self->{'isa'}) { }
0 0 elsif ($self->{'does'}) { }
2623 0 0 unless defined $meta
2667 0 4 if (ref $self ne 'Mouse::Meta::Class')
2692 4 4 if (@_)
2696 4 0 if $self->verify_superclass($super, $meta)
2708 0 4 if (defined $super_meta) { }
2709 0 0 if (Mouse::Util::is_a_metarole($super_meta))
2719 0 4 unless ($mm and $mm == \&Mouse::Util::meta)
2720 0 0 if ($super->can('new') or $super->can('DESTROY'))
2732 0 0 if ($ENV{'PERL_MOUSE_STRICT'})
2759 0 0 unless ($self_c->isa($other_c))
2790 0 0 unless ($common_ancestor)
2805 0 0 unless defined $method_name
2810 0 0 if defined $method
2830 0 0 unless defined $name
2833 0 0 if $attr->name eq $name
2843 0 4 if (&Scalar::Util::blessed($_[0])) { }
2846 0 0 unless $attr->isa('Mouse::Meta::Attribute')
2855 0 4 @_ == 1 ? :
2857 0 4 unless defined $name
2860 0 4 if ($name =~ s/^\+//) { }
2866 0 0 if ($i->name eq $name)
2871 0 0 unless $inherited_attr
2878 0 4 if @traits
2894 0 4 if (not $attr->{'associated_methods'} and ($attr->{'is'} || '') ne 'bare')
2906 4 4 unless my $meta = Mouse::Util::get_metaclass_by_name($class)
2938 0 0 if ($args{'inline_constructor'})
2944 0 0 if ($args{'inline_destructor'})
2968 0 0 unless my $original = $into->can($name)
2973 0 0 unless ($modifier_table)
2977 0 0 if (@before)
2980 0 0 unless (@after)
2984 0 0 if (wantarray) { }
0 0 elsif (defined wantarray) { }
3017 0 0 if ($type eq 'before') { }
0 0 elsif ($type eq 'after') { }
3051 0 0 if ($self->has_method($name))
3057 0 0 unless my $super_body = $package->can($name)
3071 0 0 if ($self->has_method($name))
3075 0 0 unless my $super = $self->find_method_by_name($name)
3092 0 0 unless defined $role_name
3095 0 0 if ref $role_name
3098 0 0 unless my $meta = Mouse::Util::get_metaclass_by_name($class)
3103 0 0 if $role->does_role($role_name)
3125 0 0 if @_ % 2 != 0
3133 0 0 if ($class ne 'Mouse::Meta::Method')
3164 0 2 $ENV{'MOUSE_DEBUG'} ? :
3185 0 4 defined $constraint ? :
3195 4 0 if ($type eq 'rw' or $type eq 'wo') { }
0 0 elsif ($type eq 'ro') { }
3196 4 0 if ($type eq 'rw') { }
3208 0 4 if (defined $constraint)
3209 0 0 if ($should_coerce)
3223 4 0 unless $is_weak or $trigger or $should_deref
3225 0 4 if $trigger
3228 0 4 if ($is_weak)
3232 0 4 if ($trigger)
3245 0 4 if ($attribute->is_lazy and $type ne 'wo')
3248 0 0 if (defined $builder) { }
0 0 elsif (ref $default eq 'CODE') { }
3258 0 0 if $type eq 'rw'
3260 0 0 if ($should_coerce) { }
0 0 elsif (defined $constraint) { }
3272 0 0 if ($is_weak)
3278 0 4 if ($should_deref)
3279 0 0 if ($constraint->is_a_type_of('ArrayRef')) { }
0 0 elsif ($constraint->is_a_type_of('HashRef')) { }
3299 0 4 if $e
3347 0 2 $ENV{'MOUSE_DEBUG'} ? :
3386 0 0 if $e
3394 0 4 if $_
3402 0 4 if ($strict)
3421 0 4 if (defined $type_constraint)
3429 0 4 if (defined $type_constraint)
3435 4 0 if (defined $init_arg)
3440 0 4 if ($need_coercion)
3447 0 4 if ($attr->has_trigger)
3452 0 4 if ($strict)
3459 0 4 if ($attr->has_default or $attr->has_builder) { }
0 4 elsif ($attr->is_required) { }
3460 0 0 unless ($attr->is_lazy)
3465 0 0 if (defined $builder) { }
0 0 elsif (ref $default eq 'CODE') { }
0 0 elsif (defined $default) { }
3478 0 0 if ($need_coercion)
3491 4 0 if defined $init_arg
3493 0 4 if ($is_weak_ref)
3501 0 4 if ($strict)
3506 0 4 if ($metaclass->is_anon_class)
3510 0 4 if ($has_triggers)
3531 0 4 if $e
3539 0 0 if ($class->can('BUILDARGS') and $class->can('BUILDARGS') != \&Mouse::Object::BUILDARGS)
3559 0 0 unless $metaclass->name->can('BUILD')
3563 0 0 if (Mouse::Util::get_code_ref($class, 'BUILD'))
3580 0 0 if (ref $method_to_call eq 'ARRAY')
3589 0 0 unless (defined $can_be_optimized)
3597 0 0 if ($can_be_optimized) { }
3609 0 0 ref $proxy && !&Scalar::Util::blessed($proxy) ? :
0 0 !defined($proxy) ? :
3612 0 0 if ($error)
3631 0 2 $ENV{'MOUSE_DEBUG'} ? :
3638 0 0 if (Mouse::Util::get_code_ref($class, 'DEMOLISH'))
3645 0 0 if ($demolishall)
3682 0 0 if $e
3707 0 12 unless $package_name and not ref $package_name
3717 0 0 if ref $package_name
3719 0 0 unless $package_name and not ref $package_name
3722 0 0 if (exists $METAS{$package_name})
3731 0 0 unless defined $class_or_instance
3772 0 0 $code && !exists($foreign{Mouse::Util::get_code_package($code)}) ? :
3781 0 0 unless defined $method_name
3790 0 0 unless defined $method_name
3800 0 0 if (my $code = $self->get_method_body($method_name))
3823 0 0 if (my $type = ref $arg) { }
3824 0 0 if ($type eq 'Regexp') { }
0 0 elsif ($type eq 'ARRAY') { }
3856 0 0 if @_ < 2
3859 0 0 if (exists $options{'superclasses'})
3860 0 0 if (Mouse::Util::is_a_metarole($self)) { }
3865 0 0 unless ref $superclasses eq 'ARRAY'
3871 0 0 if (defined $attributes)
3872 0 0 unless ref $attributes eq 'ARRAY' or ref $attributes eq 'HASH'
3876 0 0 if (defined $methods)
3877 0 0 unless ref $methods eq 'HASH'
3881 0 0 if (defined $roles)
3882 0 0 unless ref $roles eq 'ARRAY'
3888 0 0 unless (defined $package_name)
3892 0 0 unless ($mortal)
3895 0 0 unless $superclasses
3896 0 0 unless $roles
3898 0 0 if exists $IMMORTALS{$cache_key}
3908 0 0 if exists $options{'version'}
3909 0 0 if exists $options{'authority'}
3914 0 0 if $mortal
3921 0 0 if defined $superclasses
3929 0 0 if (defined $attributes)
3930 0 0 if (ref $attributes eq 'ARRAY') { }
3943 0 0 if (defined $methods)
3948 0 0 if (defined $roles and not $options{'in_application_to_instance'})
3952 0 0 if ($cache_key)
3962 0 0 if Mouse::Util::in_global_destruction()
3965 0 0 unless $serial_id
3968 0 0 if (exists $INC{'threads.pm'})
3971 0 0 if (caller)[2] == 0
3977 0 0 if exists $self->{'superclasses'}
4013 0 0 if ($class ne 'Mouse::Meta::Role')
4055 0 0 @_ == 1 ? :
4085 0 0 if ($self->has_method($method_name))
4104 0 0 unless defined $role_name
4107 0 0 if ref $role_name
4110 0 0 if $role_name eq $self->name
4113 0 0 if $role->does_role($role_name)
4127 0 0 if (exists $args->{'exclude'} or exists $args->{'alias'})
4132 0 0 if ($args->{'alias'} and not exists $$args{-'alias'})
4135 0 0 if ($args->{'excludes'} and not exists $$args{-'excludes'})
4141 0 0 if (my $alias = $$args{-'alias'})
4145 0 0 if (my $excludes = $$args{-'excludes'})
4147 0 0 if (ref $excludes) { }
4155 0 0 if ($class ne 'Mouse::Meta::Role::Application')
4165 0 0 if (Mouse::Util::is_a_metaclass($consumer)) { }
0 0 elsif (Mouse::Util::is_a_metarole($consumer)) { }
4200 0 0 if (defined $instance)
4212 0 0 if ($self->{'_to'} eq 'role') { }
4220 0 0 if exists $self->{'aliased_methods'}{$method_name}
4221 0 0 if exists $role->{'methods'}{$method_name}
4222 0 0 if $consumer_class_name->can($method_name)
4226 0 0 if (@missing)
4227 0 0 @missing == 1 ? :
4245 0 0 if $method_name eq 'meta'
4249 0 0 unless (exists $excludes->{$method_name})
4250 0 0 unless ($consumer->has_method($method_name))
4256 0 0 if (exists $alias->{$method_name})
4261 0 0 if (defined $dstcode and $dstcode != $code) { }
4277 0 0 if $consumer->has_attribute($attr_name)
4288 0 0 if (my $modifiers = $role->{'override_method_modifiers'})
4296 0 0 unless my $table = $$role{"${modifier_type}_method_modifiers"}
4304 0 0 if $$consumer{"_applied_$modifier_type"}{join $;, $method_name, $code}++
4317 0 0 unless ($metaclass_or_role->does_role($r))
4344 0 0 ref $role_spec eq 'ARRAY' ? :
4360 0 0 if (($self->{'methods'}{$method_name} || 0) == $code)
4365 0 0 if ($method_name eq 'meta') { }
4372 0 0 if (@{$roles;} > 1)
4403 0 0 @_ == 1 ? :
4406 0 0 if ($existing and $existing != $spec)
4418 0 0 if ($existing and $existing != $code)
4441 0 0 if (exists $role->{'conflicting_methods'})
4447 0 0 if (@conflicting)
4448 0 0 @conflicting == 1 ? :
4460 0 0 @conflicting > 1 ? :
4471 0 0 if $consumer_class_name->can($_)
4473 0 0 if (@changed_in_v2_0_0)
4474 0 0 @changed_in_v2_0_0 == 1 ? :
4486 0 0 @changed_in_v2_0_0 > 1 ? :
4515 0 0 if ($class ne 'Mouse::Meta::Role::Method')
4573 0 0 if @_ % 2
4576 0 0 ref $name ? :
4611 0 0 unless defined $Mouse::SUPER_BODY
4632 0 0 unless @_
4646 0 0 unless my $class = $args{'for_class'}
4657 0 0 unless Mouse::Util::TypeConstraints::find_type_constraint($class)
4681 0 0 &Scalar::Util::blessed($args{'for'}) ? :
4683 0 0 unless ($for)
4687 0 0 if (Mouse::Util::is_a_metarole($for)) { }
4698 0 0 unless keys %{$roles;}
4701 0 0 exists $roles->{$primary} ? :
4723 0 0 if $args->{'class_metaroles'} or $args->{'roles_metaroles'}
4726 0 0 if exists $args->{'for_class'}
4745 0 0 &Scalar::Util::blessed($args->{'for'}) ? :
4748 0 0 if (Mouse::Util::is_a_metaclass($for)) { }
4752 0 0 if exists $args->{'metaclass_roles'}
4758 0 0 if exists $args->{'metaclass_roles'}
4765 0 0 if exists $args->{$old_key}
4785 0 0 if $new_base ne $meta->name
4793 0 0 unless ($superclasses)
4794 0 0 unless $roles
4799 0 0 unless grep {not ref $_ || $meta->does_role($_);} @{$roles;}
4802 0 0 $superclasses ? :