unless ($stat->prepared) {
error 'Can\'t create ' . $stat->dist . ' since it was never prepared -- aborting';
+ $stat->created(0);
return 0;
}
return 1;
}
+ $stat->created(0);
+
$self->SUPER::create(@_);
my $dir = $stat->eb_dir;
}
}
+ $stat->created(1);
return 1;
}
my @cmd = ('emerge', '=' . $stat->eb_name . '-' . $stat->eb_version);
unshift @cmd, $sudo if $sudo;
- return $self->_run(\@cmd, 1);
+ my $success = $self->_run(\@cmd, 1);
+ $stat->installed($success);
+
+ return $success;
}
sub uninstall {
my @cmd = ('emerge', '-C', '=' . $stat->eb_name . '-' . $stat->eb_version);
unshift @cmd, $sudo if $sudo;
- return $self->_run(\@cmd, 1);
+ my $success = $self->_run(\@cmd, 1);
+ $stat->uninstalled($success);
+
+ return $success;
}
sub _run {