1 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
2 # vim: ts=4 sts=4 sw=4:
4 use overload '""' => "as_string";
13 $CPAN::CurrentCommandId ||= 0;
19 unless ($CPAN::META->{LOCK}) {
20 $word = "nolock_cpan";
22 if ($CPAN::Config->{commandnumber_in_prompt}) {
23 sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;