| line |
true |
false |
branch |
|
90
|
0 |
2 |
if ($$args{'sub_categories'}) |
|
92
|
0 |
0 |
unless ref $$args{'sub_categories'} eq 'ARRAY' |
|
127
|
0 |
0 |
unless ref $self eq ref $target |
|
142
|
0 |
0 |
if ref $sub_categories{$id2} |
|
194
|
0 |
0 |
if ($parent and not ref $parent) |
|
198
|
0 |
0 |
unless ref($parent = $class->new($parent)) |
|
231
|
0 |
0 |
unless ref $list eq 'ARRAY' |
|
266
|
0 |
0 |
if (grep((!ref($_)), @$sub_categories)) |
|
275
|
0 |
0 |
unless (ref($cat_id = $$sub_categories[$_])) |
|
277
|
0 |
0 |
unless ref($$sub_categories[$_] = $class->find({'id', $cat_id})) |
|
312
|
1 |
0 |
unless ref $args |
|
353
|
0 |
1 |
if $key eq 'api_key' |
|
359
|
0 |
1 |
if ($key eq 'id') |
|
370
|
0 |
1 |
if ($key eq 'parent') |
|
373
|
0 |
0 |
ref $value && $value->isa('WebService::ISBNDB::API::Categories') ? : |
|
382
|
1 |
0 |
if ($key =~ /^(:?name|category_id|parent_id)$/) |