Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

actually run them

  • Loading branch information...
commit 1df9a8438a85c975590c5574ce92d1043b4a57b6 1 parent d98af0e
Luke Closs authored

Showing 1 changed file with 17 additions and 0 deletions. Show diff stats Hide diff stats

  1. +17 0 bin/delete-all-transactions
17 bin/delete-all-transactions
... ... @@ -0,0 +1,17 @@
  1 +#!/usr/bin/env perl
  2 +use strict;
  3 +use warnings;
  4 +use Dancer qw/:syntax/;
  5 +use FindBin;
  6 +use Cwd qw/realpath/;
  7 +use lib "$FindBin::Bin/../lib";
  8 +use Biopay::Transaction;
  9 +use Dancer::Plugin::CouchDB;
  10 +
  11 +Dancer::Config::setting('appdir',realpath("$FindBin::Bin/.."));
  12 +Dancer::Config::load();
  13 +
  14 +for my $txn (@{ Biopay::Transaction->All }) {
  15 + print "Removing " . $txn->txn_id, "\n";
  16 + couchdb->remove_doc($txn)->recv;
  17 +}

0 comments on commit 1df9a84

Please sign in to comment.
Something went wrong with that request. Please try again.