| line |
true |
false |
branch |
|
71
|
0 |
319 |
if (@_ and $Method_Maker_Info{$class})
|
|
88
|
0 |
1 |
if (@_ and $Method_Maker_Info{$class})
|
|
112
|
64 |
1411 |
unless ($info and %$info)
|
|
123
|
128 |
83 |
unless $subclass->can('init_method_maker_info')
|
|
131
|
0 |
152 |
unless $subclass_info->{$type}
|
|
136
|
262 |
194 |
if not $subclass_info->{$type}{$attr} or defined $info->{$type}{$attr}
|
|
155
|
0 |
186 |
if ref $class
|
|
162
|
0 |
817 |
unless defined $type and ref $info and ref $info eq 'HASH'
|
|
181
|
0 |
0 |
if ref $class
|
|
188
|
0 |
0 |
unless defined $type and ref $new_names and ref $new_names eq 'ARRAY'
|
|
203
|
0 |
374 |
unless defined $type
|
|
205
|
0 |
374 |
if ref $class
|
|
210
|
0 |
374 |
if (@_)
|
|
212
|
0 |
0 |
if (@_ == 1 and ref $_[0] and ref $_[0] eq 'ARRAY') { }
|
|
222
|
15 |
359 |
unless (defined $mm_info->{'args'})
|
|
228
|
374 |
0 |
wantarray ? :
|
|
235
|
0 |
389 |
unless defined $type
|
|
237
|
374 |
15 |
if ref $class
|
|
241
|
15 |
374 |
if (@_)
|
|
253
|
0 |
443 |
unless defined $type
|
|
255
|
374 |
69 |
if ref $class
|
|
258
|
69 |
374 |
if (@_)
|
|
269
|
0 |
106 |
if ref $class
|
|
271
|
50 |
56 |
if ($Method_Maker_Info{$class} and %{$Method_Maker_Info{$class};})
|
|
306
|
7 |
0 |
@_ == 1 ? :
|
|
312
|
21 |
0 |
if defined $name
|
|
322
|
0 |
2565 |
unless defined $type
|
|
324
|
424 |
2141 |
if (@_)
|
|
342
|
0 |
0 |
if $type eq 'set'
|
|
343
|
0 |
0 |
if $type eq 'get'
|
|
346
|
0 |
0 |
@$args > 1 ? :
|
|
356
|
0 |
0 |
wantarray ? :
|
|
365
|
0 |
374 |
unless defined $type
|
|
375
|
181 |
193 |
if exists $mm_info->{'interface'}
|
|
377
|
77 |
297 |
wantarray ? :
|
|
386
|
44 |
227 |
if (exists $args{'preserve_existing'})
|
|
391
|
0 |
271 |
if (exists $args{'replace_existing'})
|
|
393
|
0 |
0 |
if ($options->{'preserve_existing'})
|
|
409
|
0 |
374 |
unless my $method_maker_class = $self->method_maker_class($type)
|
|
412
|
0 |
374 |
unless my $method_maker_type = $self->method_maker_type($type)
|
|
415
|
0 |
374 |
unless my $method_name = $self->method_name($type)
|
|
418
|
0 |
374 |
if ('Rose::DB::Object'->can($method_name))
|
|
434
|
297 |
76 |
if ($self->can('method_code'))
|