lib/CPANPLUS/Configure.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 22 | 50.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
164 | 3 | 0 | 1 | $ENV{$env} and not $warned |
543 | 0 | 0 | 1 | $type eq "_build" and $key eq "base" |
line | l | !l | condition |
---|---|---|---|
329 | 1 | 0 | shift() || 'CPANPLUS::Config::User' |
330 | 1 | 0 | shift() || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
103 | 0 | 17 | 0 | $Config ||= "CPANPLUS::Config"->new |
178 | 2 | 1 | 1 | not $loaded++ or $rescan |
267 | 1 | 0 | 0 | shift() || sub { package CPANPLUS::Internals::Constants; 'File::Spec'->catfile(sub { require CPANPLUS::Internals::Utils; sub { return @_ ? 'File::Spec'->catdir(@_, 'lib') : 'lib'; } ->('CPANPLUS::Internals::Utils'->_home_dir, '.cpanplus'); } ->(), split(/::/, 'CPANPLUS::Config::User', 0)) . '.pm'; } ->() |
295 | 1 | 0 | 0 | shift() || sub { package CPANPLUS::Internals::Constants; require CPANPLUS::Internals::Utils; sub { return @_ ? 'File::Spec'->catdir(@_, 'lib') : 'lib'; } ->('CPANPLUS::Internals::Utils'->_home_dir, '.cpanplus'); } ->() |