1 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
2 # vim: ts=4 sts=4 sw=4:
3 package CPAN::Distrostatus;
4 use overload '""' => "as_string",
6 use vars qw($something_has_failed_at);
15 my $failed = substr($arg,0,2) eq "NO";
17 $something_has_failed_at = $CPAN::CurrentCommandId;
22 COMMANDID => $CPAN::CurrentCommandId,
26 sub something_has_just_failed () {
27 defined $something_has_failed_at &&
28 $something_has_failed_at == $CPAN::CurrentCommandId;
30 sub commandid { shift->{COMMANDID} }
31 sub failed { shift->{FAILED} }