diff options
Diffstat (limited to 'lib/App/Raps2.pm')
| -rw-r--r-- | lib/App/Raps2.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lib/App/Raps2.pm b/lib/App/Raps2.pm index 50d7005..273abee 100644 --- a/lib/App/Raps2.pm +++ b/lib/App/Raps2.pm @@ -346,6 +346,24 @@ sub cmd_list { } } +=item $raps2->cmd_remove(I<$name>) + +Remove (unlink) the account I<name>. + +=cut + +sub cmd_remove { + my ($self, $name) = @_; + my $pwfile = $self->{xdg_data} . "/${name}"; + + if (-e $pwfile) { + unlink($pwfile); + } + else { + say STDERR 'File did not exist, so could not be removed'; + } +} + =back =head1 DEPENDENCIES |