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   50 use overload '""' => "as_string";
  12         23  
  12         85  
5 12     12   714 use vars qw($prompt);
  12         16  
  12         418  
6 12         1403 use vars qw(
7             $VERSION
8 12     12   38 );
  12         20  
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;