| 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) |
|
1105
|
0 |
0 |
if $@ and $ENV{'MOUSE_XS'} |
|
1108
|
2 |
0 |
unless ($xs) |
|
1119
|
2 |
0 |
if ($] >= 5.01) { } |
|
1135
|
0 |
0 |
if exists $stored{$p} |
|
1155
|
0 |
0 |
unless (defined $type) |
|
1156
|
0 |
0 |
exists $Class::C3::MRO{$classname} ? : |
|
1158
|
0 |
0 |
if ($type eq 'c3') { } |
|
1201
|
2 |
0 |
if (defined ${^GLOBAL_PHASE}) { } |
|
1225
|
0 |
0 |
unless defined $role_name |
|
1234
|
0 |
0 |
if (&Scalar::Util::blessed($thing) || is_class_loaded($thing) and $thing->can('does')) |
|
1248
|
0 |
0 |
$options{'trait'} ? : |
|
1253
|
0 |
0 |
$options{'trait'} ? : |
|
1261
|
0 |
0 |
$loaded_class->can('register_implementation') ? : |
|
1287
|
0 |
0 |
unless my(@classes) = @_ |
|
1294
|
0 |
0 |
if ($e) { } |
|
1316
|
0 |
8 |
unless (is_valid_class_name($class)) |
|
1317
|
0 |
0 |
defined $class ? : |
|
1321
|
8 |
0 |
if is_class_loaded($class) |
|
1336
|
0 |
8 |
if $e |
|
1343
|
0 |
0 |
&Scalar::Util::blessed($_[0]) ? : |
|
1354
|
0 |
0 |
if (ref $role) { } |
|
1363
|
0 |
0 |
if ($i + 1 < $max and ref $_[$i + 1] eq 'HASH') { } |
|
1368
|
0 |
0 |
unless is_a_metarole($role) |
|
1372
|
0 |
0 |
if (scalar @roles == 1) { } |
|
1374
|
0 |
0 |
defined $params ? : |
|
1384
|
0 |
0 |
if @_ == 1 |
|
1388
|
0 |
0 |
if @items == 2 |
|
1423
|
0 |
0 |
if (exists $args{'longmess'} and not $args{'longmess'}) { } |
|
1437
|
0 |
0 |
defined $maxdepth ? : |
|
1456
|
0 |
46 |
@_ == 1 ? : |
|
1458
|
0 |
46 |
unless defined $args{'name'} |
|
1461
|
44 |
2 |
if (defined $args{'parent'}) |
|
1470
|
0 |
44 |
if (defined(my $parent_tp = $args{'parent'}{'type_parameter'})) |
|
1471
|
0 |
0 |
if ($parent_tp != $type_parameter) { } |
|
1472
|
0 |
0 |
unless $type_parameter->is_a_type_of($parent_tp) |
|
1485
|
40 |
6 |
if ($check = delete $args{'optimized'}) { } |
|
|
0 |
6 |
elsif (defined $type_parameter) { } |
|
1497
|
0 |
0 |
if (defined(my $my_check = $args{'constraint'})) { } |
|
1511
|
0 |
46 |
if (defined $check and ref $check ne 'CODE') |
|
1518
|
6 |
40 |
unless $args{'hand_optimized_type_constraint'} |
|
1520
|
0 |
46 |
if ($args{'type_constraints'}) |
|
1522
|
0 |
0 |
if ($type->has_coercion) |
|
1557
|
0 |
0 |
if (exists $self->{'type_constraints'}) |
|
1569
|
0 |
0 |
if (exists $has{$from}) |
|
1573
|
0 |
0 |
unless my $type = Mouse::Util::TypeConstraints::find_or_parse_type_constraint($from) |
|
1588
|
0 |
0 |
if defined $coercion |
|
1590
|
0 |
0 |
if (not $self->{'type_constraints'}) { } |
|
1601
|
0 |
0 |
if ($pair->[0]->($thing)) |
|
1611
|
0 |
0 |
if ($type->has_coercion) |
|
1615
|
0 |
0 |
if (@coercions) |
|
1620
|
0 |
0 |
if $self->check($value) |
|
1632
|
0 |
0 |
if $self->check(@_) |
|
1634
|
0 |
0 |
unless my $coercion = $self->_compiled_type_coercion |
|
1641
|
0 |
0 |
if (my $msg = $self->message) { } |
|
1645
|
0 |
0 |
if (not defined $value) { } |
|
|
0 |
0 |
elsif (ref $value and defined &overload::StrVal) { } |
|
1659
|
0 |
0 |
if not ref $other and $other eq '__ANON__' |
|
1663
|
0 |
0 |
if $self->name eq $other_name |
|
1665
|
0 |
0 |
if (exists $self->{'type_constraints'}) |
|
1667
|
0 |
0 |
if $type->name eq $other_name |
|
1672
|
0 |
0 |
if $p->name eq $other_name |
|
1682
|
0 |
0 |
unless (ref $param) |
|
1698
|
0 |
0 |
unless ($self->check($value)) |
|
1827
|
0 |
4 |
if (@_ == 1 and ref $_[0]) { } |
|
|
0 |
4 |
elsif (@_ == 2 and ref $_[1]) { } |
|
|
4 |
0 |
elsif (@_ % 2) { } |
|
1841
|
0 |
4 |
unless (defined $name) |
|
1848
|
0 |
4 |
if ($is_subtype and not $parent) |
|
1853
|
4 |
0 |
if (defined $parent) |
|
1857
|
4 |
0 |
if (defined $name) |
|
1860
|
4 |
0 |
unless ($this) |
|
1862
|
0 |
4 |
unless ($this =~ /\A Mouse \b/msx) |
|
1867
|
0 |
4 |
if (defined $TYPE{$name}) |
|
1869
|
0 |
0 |
if ($this ne $that) |
|
1871
|
0 |
0 |
if ($that eq 'Mouse::Util::TypeConstraints') |
|
1874
|
0 |
0 |
scalar grep({$name eq $_;} list_all_builtin_type_constraints()) ? : |
|
1884
|
0 |
4 |
if exists $args{'where'} |
|
1885
|
4 |
0 |
if exists $args{'optimized_as'} |
|
1889
|
4 |
0 |
if (defined $name) { } |
|
1907
|
0 |
0 |
unless my $type = find_type_constraint($type_name) |
|
1949
|
0 |
0 |
if (ref $_[0] ne 'ARRAY') |
|
1953
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? : |
|
1973
|
0 |
0 |
unless (@_ == 1 and ref $_[0] eq 'ARRAY') |
|
1978
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? : |
|
1992
|
0 |
0 |
if exists $TYPE{$spec} |
|
1996
|
0 |
0 |
unless (defined $meta) |
|
1997
|
0 |
0 |
$create ? : |
|
2000
|
0 |
0 |
if (Mouse::Util::is_a_metarole($meta)) { } |
|
2017
|
0 |
0 |
if grep {not defined $_;} @_ |
|
2019
|
0 |
0 |
$_->{'type_constraints'} ? : |
|
2036
|
0 |
0 |
if ($c->{'spec'} =~ s/^\[//) |
|
2039
|
0 |
0 |
if ($c->{'spec'} =~ s/^\]//) |
|
2052
|
0 |
0 |
if ($c->{'spec'} =~ s/\A ([\w.:]+) //msx) |
|
2065
|
0 |
0 |
if (defined $type) { } |
|
|
0 |
0 |
elsif (defined $param) { } |
|
2066
|
0 |
0 |
if (defined $param) { } |
|
2086
|
0 |
0 |
if ($c->{'spec'}) |
|
2091
|
0 |
0 |
if (@types) |
|
2101
|
0 |
4 |
if Mouse::Util::is_a_type_constraint($spec) or not defined $spec |
|
2109
|
0 |
0 |
unless Mouse::Util::is_a_type_constraint($constraint) |
|
2116
|
0 |
4 |
if Mouse::Util::is_a_type_constraint($spec) or not defined $spec |
|
2121
|
4 |
0 |
if (defined $tc) |
|
2131
|
0 |
0 |
if ($context{'spec'}) |
|
2141
|
0 |
0 |
defined $tc ? : |
|
2147
|
4 |
0 |
defined $tc ? : |
|
2199
|
0 |
4 |
if @_ % 2 |
|
2202
|
0 |
4 |
ref $name ? : |
|
2242
|
0 |
0 |
if defined $SUPER_PACKAGE and $SUPER_PACKAGE ne caller() |
|
2243
|
0 |
0 |
unless defined $SUPER_BODY |
|
2257
|
0 |
0 |
if (my $body = $INNER_BODY{$pkg}) { } |
|
2279
|
0 |
4 |
unless my $class = $args{'for_class'} |
|
2287
|
4 |
0 |
unless exists $INC{$filename} |
|
2293
|
4 |
0 |
unless $meta->superclasses |
|
2297
|
4 |
0 |
unless Mouse::Util::TypeConstraints::find_type_constraint($class) |
|
2369
|
0 |
4 |
if (@bad and $class ne 'Mouse::Meta::Attribute') |
|
2380
|
0 |
4 |
if (@bad) |
|
2387
|
0 |
4 |
if ($class ne 'Mouse::Meta::Attribute') |
|
2393
|
0 |
0 |
unless $_[0]->has_reader |
|
2394
|
0 |
0 |
unless $_[0]->has_writer |
|
2396
|
0 |
0 |
unless $_[0]->reader |
|
2397
|
0 |
0 |
unless $_[0]->writer |
|
2414
|
0 |
4 |
if (my $metaclass = delete $args->{'metaclass'}) |
|
2419
|
0 |
4 |
if (my $traits_ref = delete $args->{'traits'}) |
|
2424
|
0 |
0 |
if $class->does($trait) |
|
2429
|
0 |
0 |
if ref $$traits_ref[$i + 1] |
|
2433
|
0 |
0 |
if (@traits) |
|
2449
|
0 |
0 |
unless $type_constraint |
|
2450
|
0 |
0 |
if $type_constraint->check($value) |
|
2474
|
0 |
0 |
if (exists $args->{$illegal} and exists $self->{$illegal}) |
|
2480
|
0 |
0 |
unless (exists $args->{$name}) |
|
2486
|
0 |
0 |
if @traits |
|
2490
|
0 |
0 |
if ($attr =~ /\A _mouse_cache_/msx) |
|
2496
|
0 |
0 |
if ($args->{'lazy_build'}) |
|
2511
|
0 |
0 |
if ($accessor) { } |
|
2559
|
4 |
16 |
if (exists $attribute->{$type}) |
|
2575
|
0 |
4 |
if (exists $attribute->{'handles'}) |
|
2578
|
0 |
0 |
if 'Mouse::Object'->can($handle) |
|
2580
|
0 |
0 |
if ($metaclass->has_method($handle)) |
|
2604
|
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') { } |
|
2613
|
0 |
0 |
Mouse::Util::is_a_metarole($meta) ? : |
|
2629
|
0 |
0 |
if ($self->{'isa'}) { } |
|
|
0 |
0 |
elsif ($self->{'does'}) { } |
|
2635
|
0 |
0 |
unless defined $meta |
|
2679
|
0 |
4 |
if (ref $self ne 'Mouse::Meta::Class') |
|
2704
|
4 |
4 |
if (@_) |
|
2708
|
4 |
0 |
if $self->verify_superclass($super, $meta) |
|
2720
|
0 |
4 |
if (defined $super_meta) { } |
|
2721
|
0 |
0 |
if (Mouse::Util::is_a_metarole($super_meta)) |
|
2731
|
0 |
4 |
unless ($mm and $mm == \&Mouse::Util::meta) |
|
2732
|
0 |
0 |
if ($super->can('new') or $super->can('DESTROY')) |
|
2744
|
0 |
0 |
if ($ENV{'PERL_MOUSE_STRICT'}) |
|
2771
|
0 |
0 |
unless ($self_c->isa($other_c)) |
|
2802
|
0 |
0 |
unless ($common_ancestor) |
|
2817
|
0 |
0 |
unless defined $method_name |
|
2822
|
0 |
0 |
if defined $method |
|
2842
|
0 |
0 |
unless defined $name |
|
2845
|
0 |
0 |
if $attr->name eq $name |
|
2855
|
0 |
4 |
if (&Scalar::Util::blessed($_[0])) { } |
|
2858
|
0 |
0 |
unless $attr->isa('Mouse::Meta::Attribute') |
|
2867
|
0 |
4 |
@_ == 1 ? : |
|
2869
|
0 |
4 |
unless defined $name |
|
2872
|
0 |
4 |
if ($name =~ s/^\+//) { } |
|
2878
|
0 |
0 |
if ($i->name eq $name) |
|
2883
|
0 |
0 |
unless $inherited_attr |
|
2890
|
0 |
4 |
if @traits |
|
2906
|
0 |
4 |
if (not $attr->{'associated_methods'} and ($attr->{'is'} || '') ne 'bare') |
|
2918
|
4 |
4 |
unless my $meta = Mouse::Util::get_metaclass_by_name($class) |
|
2950
|
0 |
0 |
if ($args{'inline_constructor'}) |
|
2956
|
0 |
0 |
if ($args{'inline_destructor'}) |
|
2980
|
0 |
0 |
unless my $original = $into->can($name) |
|
2985
|
0 |
0 |
unless ($modifier_table) |
|
2989
|
0 |
0 |
if (@before) |
|
2992
|
0 |
0 |
unless (@after) |
|
2996
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
3029
|
0 |
0 |
if ($type eq 'before') { } |
|
|
0 |
0 |
elsif ($type eq 'after') { } |
|
3063
|
0 |
0 |
if ($self->has_method($name)) |
|
3069
|
0 |
0 |
unless my $super_body = $package->can($name) |
|
3083
|
0 |
0 |
if ($self->has_method($name)) |
|
3087
|
0 |
0 |
unless my $super = $self->find_method_by_name($name) |
|
3104
|
0 |
0 |
unless defined $role_name |
|
3107
|
0 |
0 |
if ref $role_name |
|
3110
|
0 |
0 |
unless my $meta = Mouse::Util::get_metaclass_by_name($class) |
|
3115
|
0 |
0 |
if $role->does_role($role_name) |
|
3137
|
0 |
0 |
if @_ % 2 != 0 |
|
3145
|
0 |
0 |
if ($class ne 'Mouse::Meta::Method') |
|
3176
|
0 |
2 |
$ENV{'MOUSE_DEBUG'} ? : |
|
3197
|
0 |
4 |
defined $constraint ? : |
|
3207
|
4 |
0 |
if ($type eq 'rw' or $type eq 'wo') { } |
|
|
0 |
0 |
elsif ($type eq 'ro') { } |
|
3208
|
4 |
0 |
if ($type eq 'rw') { } |
|
3220
|
0 |
4 |
if (defined $constraint) |
|
3221
|
0 |
0 |
if ($should_coerce) |
|
3235
|
4 |
0 |
unless $is_weak or $trigger or $should_deref |
|
3237
|
0 |
4 |
if $trigger |
|
3240
|
0 |
4 |
if ($is_weak) |
|
3244
|
0 |
4 |
if ($trigger) |
|
3257
|
0 |
4 |
if ($attribute->is_lazy and $type ne 'wo') |
|
3260
|
0 |
0 |
if (defined $builder) { } |
|
|
0 |
0 |
elsif (ref $default eq 'CODE') { } |
|
3270
|
0 |
0 |
if $type eq 'rw' |
|
3272
|
0 |
0 |
if ($should_coerce) { } |
|
|
0 |
0 |
elsif (defined $constraint) { } |
|
3284
|
0 |
0 |
if ($is_weak) |
|
3290
|
0 |
4 |
if ($should_deref) |
|
3291
|
0 |
0 |
if ($constraint->is_a_type_of('ArrayRef')) { } |
|
|
0 |
0 |
elsif ($constraint->is_a_type_of('HashRef')) { } |
|
3311
|
0 |
4 |
if $e |
|
3359
|
0 |
2 |
$ENV{'MOUSE_DEBUG'} ? : |
|
3398
|
0 |
0 |
if $e |
|
3406
|
0 |
4 |
if $_ |
|
3414
|
0 |
4 |
if ($strict) |
|
3433
|
0 |
4 |
if (defined $type_constraint) |
|
3441
|
0 |
4 |
if (defined $type_constraint) |
|
3447
|
4 |
0 |
if (defined $init_arg) |
|
3452
|
0 |
4 |
if ($need_coercion) |
|
3459
|
0 |
4 |
if ($attr->has_trigger) |
|
3464
|
0 |
4 |
if ($strict) |
|
3471
|
0 |
4 |
if ($attr->has_default or $attr->has_builder) { } |
|
|
0 |
4 |
elsif ($attr->is_required) { } |
|
3472
|
0 |
0 |
unless ($attr->is_lazy) |
|
3477
|
0 |
0 |
if (defined $builder) { } |
|
|
0 |
0 |
elsif (ref $default eq 'CODE') { } |
|
|
0 |
0 |
elsif (defined $default) { } |
|
3490
|
0 |
0 |
if ($need_coercion) |
|
3503
|
4 |
0 |
if defined $init_arg |
|
3505
|
0 |
4 |
if ($is_weak_ref) |
|
3513
|
0 |
4 |
if ($strict) |
|
3518
|
0 |
4 |
if ($metaclass->is_anon_class) |
|
3522
|
0 |
4 |
if ($has_triggers) |
|
3543
|
0 |
4 |
if $e |
|
3551
|
0 |
0 |
if ($class->can('BUILDARGS') and $class->can('BUILDARGS') != \&Mouse::Object::BUILDARGS) |
|
3571
|
0 |
0 |
unless $metaclass->name->can('BUILD') |
|
3575
|
0 |
0 |
if (Mouse::Util::get_code_ref($class, 'BUILD')) |
|
3592
|
0 |
0 |
if (ref $method_to_call eq 'ARRAY') |
|
3601
|
0 |
0 |
unless (defined $can_be_optimized) |
|
3609
|
0 |
0 |
if ($can_be_optimized) { } |
|
3621
|
0 |
0 |
ref $proxy && !&Scalar::Util::blessed($proxy) ? : |
|
|
0 |
0 |
!defined($proxy) ? : |
|
3624
|
0 |
0 |
if ($error) |
|
3643
|
0 |
2 |
$ENV{'MOUSE_DEBUG'} ? : |
|
3650
|
0 |
0 |
if (Mouse::Util::get_code_ref($class, 'DEMOLISH')) |
|
3657
|
0 |
0 |
if ($demolishall) |
|
3694
|
0 |
0 |
if $e |
|
3719
|
0 |
12 |
unless $package_name and not ref $package_name |
|
3729
|
0 |
0 |
if ref $package_name |
|
3731
|
0 |
0 |
unless $package_name and not ref $package_name |
|
3734
|
0 |
0 |
if (exists $METAS{$package_name}) |
|
3743
|
0 |
0 |
unless defined $class_or_instance |
|
3784
|
0 |
0 |
$code && !exists($foreign{Mouse::Util::get_code_package($code)}) ? : |
|
3793
|
0 |
0 |
unless defined $method_name |
|
3802
|
0 |
0 |
unless defined $method_name |
|
3812
|
0 |
0 |
if (my $code = $self->get_method_body($method_name)) |
|
3835
|
0 |
0 |
if (my $type = ref $arg) { } |
|
3836
|
0 |
0 |
if ($type eq 'Regexp') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
3868
|
0 |
0 |
if @_ < 2 |
|
3871
|
0 |
0 |
if (exists $options{'superclasses'}) |
|
3872
|
0 |
0 |
if (Mouse::Util::is_a_metarole($self)) { } |
|
3877
|
0 |
0 |
unless ref $superclasses eq 'ARRAY' |
|
3883
|
0 |
0 |
if (defined $attributes) |
|
3884
|
0 |
0 |
unless ref $attributes eq 'ARRAY' or ref $attributes eq 'HASH' |
|
3888
|
0 |
0 |
if (defined $methods) |
|
3889
|
0 |
0 |
unless ref $methods eq 'HASH' |
|
3893
|
0 |
0 |
if (defined $roles) |
|
3894
|
0 |
0 |
unless ref $roles eq 'ARRAY' |
|
3900
|
0 |
0 |
unless (defined $package_name) |
|
3904
|
0 |
0 |
unless ($mortal) |
|
3907
|
0 |
0 |
unless $superclasses |
|
3908
|
0 |
0 |
unless $roles |
|
3910
|
0 |
0 |
if exists $IMMORTALS{$cache_key} |
|
3920
|
0 |
0 |
if exists $options{'version'} |
|
3921
|
0 |
0 |
if exists $options{'authority'} |
|
3926
|
0 |
0 |
if $mortal |
|
3933
|
0 |
0 |
if defined $superclasses |
|
3941
|
0 |
0 |
if (defined $attributes) |
|
3942
|
0 |
0 |
if (ref $attributes eq 'ARRAY') { } |
|
3955
|
0 |
0 |
if (defined $methods) |
|
3960
|
0 |
0 |
if (defined $roles and not $options{'in_application_to_instance'}) |
|
3964
|
0 |
0 |
if ($cache_key) |
|
3974
|
0 |
0 |
if Mouse::Util::in_global_destruction() |
|
3977
|
0 |
0 |
unless $serial_id |
|
3980
|
0 |
0 |
if (exists $INC{'threads.pm'}) |
|
3983
|
0 |
0 |
if (caller)[2] == 0 |
|
3989
|
0 |
0 |
if exists $self->{'superclasses'} |
|
4025
|
0 |
0 |
if ($class ne 'Mouse::Meta::Role') |
|
4067
|
0 |
0 |
@_ == 1 ? : |
|
4097
|
0 |
0 |
if ($self->has_method($method_name)) |
|
4116
|
0 |
0 |
unless defined $role_name |
|
4119
|
0 |
0 |
if ref $role_name |
|
4122
|
0 |
0 |
if $role_name eq $self->name |
|
4125
|
0 |
0 |
if $role->does_role($role_name) |
|
4139
|
0 |
0 |
if (exists $args->{'exclude'} or exists $args->{'alias'}) |
|
4144
|
0 |
0 |
if ($args->{'alias'} and not exists $$args{-'alias'}) |
|
4147
|
0 |
0 |
if ($args->{'excludes'} and not exists $$args{-'excludes'}) |
|
4153
|
0 |
0 |
if (my $alias = $$args{-'alias'}) |
|
4157
|
0 |
0 |
if (my $excludes = $$args{-'excludes'}) |
|
4159
|
0 |
0 |
if (ref $excludes) { } |
|
4167
|
0 |
0 |
if ($class ne 'Mouse::Meta::Role::Application') |
|
4177
|
0 |
0 |
if (Mouse::Util::is_a_metaclass($consumer)) { } |
|
|
0 |
0 |
elsif (Mouse::Util::is_a_metarole($consumer)) { } |
|
4212
|
0 |
0 |
if (defined $instance) |
|
4224
|
0 |
0 |
if ($self->{'_to'} eq 'role') { } |
|
4232
|
0 |
0 |
if exists $self->{'aliased_methods'}{$method_name} |
|
4233
|
0 |
0 |
if exists $role->{'methods'}{$method_name} |
|
4234
|
0 |
0 |
if $consumer_class_name->can($method_name) |
|
4238
|
0 |
0 |
if (@missing) |
|
4239
|
0 |
0 |
@missing == 1 ? : |
|
4257
|
0 |
0 |
if $method_name eq 'meta' |
|
4261
|
0 |
0 |
unless (exists $excludes->{$method_name}) |
|
4262
|
0 |
0 |
unless ($consumer->has_method($method_name)) |
|
4268
|
0 |
0 |
if (exists $alias->{$method_name}) |
|
4273
|
0 |
0 |
if (defined $dstcode and $dstcode != $code) { } |
|
4289
|
0 |
0 |
if $consumer->has_attribute($attr_name) |
|
4300
|
0 |
0 |
if (my $modifiers = $role->{'override_method_modifiers'}) |
|
4308
|
0 |
0 |
unless my $table = $$role{"${modifier_type}_method_modifiers"} |
|
4316
|
0 |
0 |
if $$consumer{"_applied_$modifier_type"}{join $;, $method_name, $code}++ |
|
4329
|
0 |
0 |
unless ($metaclass_or_role->does_role($r)) |
|
4356
|
0 |
0 |
ref $role_spec eq 'ARRAY' ? : |
|
4372
|
0 |
0 |
if (($self->{'methods'}{$method_name} || 0) == $code) |
|
4377
|
0 |
0 |
if ($method_name eq 'meta') { } |
|
4384
|
0 |
0 |
if (@{$roles;} > 1) |
|
4415
|
0 |
0 |
@_ == 1 ? : |
|
4418
|
0 |
0 |
if ($existing and $existing != $spec) |
|
4430
|
0 |
0 |
if ($existing and $existing != $code) |
|
4453
|
0 |
0 |
if (exists $role->{'conflicting_methods'}) |
|
4459
|
0 |
0 |
if (@conflicting) |
|
4460
|
0 |
0 |
@conflicting == 1 ? : |
|
4472
|
0 |
0 |
@conflicting > 1 ? : |
|
4483
|
0 |
0 |
if $consumer_class_name->can($_) |
|
4485
|
0 |
0 |
if (@changed_in_v2_0_0) |
|
4486
|
0 |
0 |
@changed_in_v2_0_0 == 1 ? : |
|
4498
|
0 |
0 |
@changed_in_v2_0_0 > 1 ? : |
|
4527
|
0 |
0 |
if ($class ne 'Mouse::Meta::Role::Method') |
|
4585
|
0 |
0 |
if @_ % 2 |
|
4588
|
0 |
0 |
ref $name ? : |
|
4623
|
0 |
0 |
unless defined $Mouse::SUPER_BODY |
|
4644
|
0 |
0 |
unless @_ |
|
4658
|
0 |
0 |
unless my $class = $args{'for_class'} |
|
4665
|
0 |
0 |
unless exists $INC{$filename} |
|
4672
|
0 |
0 |
unless Mouse::Util::TypeConstraints::find_type_constraint($class) |
|
4696
|
0 |
0 |
&Scalar::Util::blessed($args{'for'}) ? : |
|
4698
|
0 |
0 |
unless ($for) |
|
4702
|
0 |
0 |
if (Mouse::Util::is_a_metarole($for)) { } |
|
4713
|
0 |
0 |
unless keys %{$roles;} |
|
4716
|
0 |
0 |
exists $roles->{$primary} ? : |
|
4738
|
0 |
0 |
if $args->{'class_metaroles'} or $args->{'roles_metaroles'} |
|
4741
|
0 |
0 |
if exists $args->{'for_class'} |
|
4760
|
0 |
0 |
&Scalar::Util::blessed($args->{'for'}) ? : |
|
4763
|
0 |
0 |
if (Mouse::Util::is_a_metaclass($for)) { } |
|
4767
|
0 |
0 |
if exists $args->{'metaclass_roles'} |
|
4773
|
0 |
0 |
if exists $args->{'metaclass_roles'} |
|
4780
|
0 |
0 |
if exists $args->{$old_key} |
|
4800
|
0 |
0 |
if $new_base ne $meta->name |
|
4808
|
0 |
0 |
unless ($superclasses) |
|
4809
|
0 |
0 |
unless $roles |
|
4814
|
0 |
0 |
unless grep {not ref $_ || $meta->does_role($_);} @{$roles;} |
|
4817
|
0 |
0 |
$superclasses ? : |