| 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 |
3 |
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 ? : |