Add RevBank::Accounts::delete

Author: polyfloyd

lib/RevBank/Accounts.pm

@@ -80,6 +80,25 @@ sub create($account) {
     return $account;
 }
 
+sub delete($account) {
+    die "No such account" if RevBank::Accounts::is_special $account;
+
+    my $user_found = 0;
+    rewrite $filename, sub($line) {
+        my @a = split " ", $line;
+        if (lc $a[0] ne lc $account) {
+            return $line;
+        }
+        if ($a[1] != 0) {
+            die "Account $account still has balance";
+        }
+        $user_found = 1;
+        return "";
+    };
+
+    die "No such account" if not $user_found;
+}
+
 sub update($account, $delta, $transaction_id) {
     $account = assert_account($account);
 

lib/RevBank/Accounts.pod

@@ -126,6 +126,12 @@ Creates an account with that name and a balance of zero. The name must not alrea
 
 After updating the file, calls the C<account_created> hook with the account name.
 
+=head3 delete($name)
+
+Deletes an account.
+
+Special accounts may not be deleted via this method. The account must have a balance of 0.00.
+
 =head3 update($name, $delta, $transaction_id)
 
 Given the relative change (C<$delta>), updates the user balance for an account.