File Coverage

blib/lib/CPAN/Prompt.pm
Criterion Covered Total %
statement 9 16 56.2
branch 0 4 0.0
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 27 44.4


line stmt bran cond sub pod time code
1             # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
2             # vim: ts=4 sts=4 sw=4:
3             package CPAN::Prompt;
4 12     12   43 use overload '""' => "as_string";
  12         12  
  12         64  
5 12     12   599 use vars qw($prompt);
  12         11  
  12         373  
6 12         1356 use vars qw(
7             $VERSION
8 12     12   41 );
  12         11  
9             $VERSION = "5.5";
10              
11              
12             $prompt = "cpan> ";
13             $CPAN::CurrentCommandId ||= 0;
14             sub new {
15 0     0 0   bless {}, shift;
16             }
17             sub as_string {
18 0     0 0   my $word = "cpan";
19 0 0         unless ($CPAN::META->{LOCK}) {
20 0           $word = "nolock_cpan";
21             }
22 0 0         if ($CPAN::Config->{commandnumber_in_prompt}) {
23 0           sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;
24             } else {
25 0           "$word> ";
26             }
27             }
28              
29             1;