Permalink
Browse files

actually run them

  • Loading branch information...
Luke Closs
Luke Closs committed Jul 13, 2011
1 parent d98af0e commit 1df9a8438a85c975590c5574ce92d1043b4a57b6
Showing with 17 additions and 0 deletions.
  1. +17 −0 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.