| line |
true |
false |
branch |
|
36
|
0 |
0 |
if @$args != 0
|
|
47
|
0 |
0 |
if (-d $config_root and my(@files) = grep({$_->basename =~ /\Aconfig\.[^.]+\z/u if -f $_;} $config_root->children))
|
|
50
|
0 |
0 |
if -f $_
|
|
59
|
0 |
0 |
unless $chrome->prompt_yn("Continue anyway?", {"default", 0})
|
|
64
|
0 |
0 |
if defined $_[0]
|
|
69
|
0 |
0 |
if defined $_[0]
|
|
75
|
0 |
0 |
if defined $_[0]
|
|
97
|
0 |
0 |
if ($chrome->prompt_yn("\n * WARNING - Your account details will be stored in plain text *\nDo you want to enter your PAUSE account details? ", {"default", 0}))
|
|
106
|
0 |
0 |
if ($email =~ /\A(.+?)\@cpan\.org\z/iu)
|
|
113
|
0 |
0 |
if defined $_[0]
|
|
127
|
0 |
0 |
unless -d $config_root
|
|
128
|
0 |
0 |
unless -d $config_root->child("profiles")
|
|
143
|
0 |
0 |
if (keys %pause)
|
|
146
|
0 |
0 |
if (length $pause{'password'})
|