| blib/lib/DBIx/Class/Optional/Dependencies.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 8 | 25.0 |
| line | l | !l | condition |
|---|---|---|---|
| 741 | 0 | 0 | eval { do { require DBIx::Class; 'DBIx::Class'->VERSION } } || die("\n\n---------------------------------------------------------------------\nUnable to load core DBIx::Class module to determine current version, possibly due to missing dependencies. Author-mode autodocumentation halted\n\n" . $@ . "\n\n---------------------------------------------------------------------\n") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 691 | 41 | 377 | 0 | $req_availability_cache{$group} ||= do { my $deps = $class->req_list_for($group); my %errors; foreach my $mod (keys %$deps) { my $req_line = "require $mod;"; if (my $ver = $deps->{$mod}) { $req_line .= "$mod->VERSION($ver);"; } ; eval $req_line; $errors{$mod} = $@ if $@; } ; my $res; if (keys %errors) { my $missing = join(', ', map({$deps->{$_} ? "$_ >= $deps->{$_}" : $_;} sort(keys %errors))); $missing .= " (see $class for details)" if $reqs->{$group}{'pod'}; $res = {'status', 0, 'errorlist', \%errors, 'missing', $missing}; } else { $res = {'status', 1, 'errorlist', {}, 'missing', ''}; } ; $res } |
| 741 | 0 | 0 | 0 | $distver ||= eval { do { require DBIx::Class; 'DBIx::Class'->VERSION } } || die("\n\n---------------------------------------------------------------------\nUnable to load core DBIx::Class module to determine current version, possibly due to missing dependencies. Author-mode autodocumentation halted\n\n" . $@ . "\n\n---------------------------------------------------------------------\n") |