Skip to content

Commit

Permalink
actually run them
Browse files Browse the repository at this point in the history
  • Loading branch information
Luke Closs committed Jul 13, 2011
1 parent d98af0e commit 1df9a84
Showing 1 changed file with 17 additions and 0 deletions.
17 changes: 17 additions & 0 deletions bin/delete-all-transactions
@@ -0,0 +1,17 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Dancer qw/:syntax/;
use FindBin;
use Cwd qw/realpath/;
use lib "$FindBin::Bin/../lib";
use Biopay::Transaction;
use Dancer::Plugin::CouchDB;

Dancer::Config::setting('appdir',realpath("$FindBin::Bin/.."));
Dancer::Config::load();

for my $txn (@{ Biopay::Transaction->All }) {
print "Removing " . $txn->txn_id, "\n";
couchdb->remove_doc($txn)->recv;
}

0 comments on commit 1df9a84

Please sign in to comment.