Skip to content

Instantly share code, notes, and snippets.

Index: /home/samshey/workspace/svn/sequoia/cgi/editor.cgi
===================================================================
--- editor.cgi    (revision 43927)
+++ editor.cgi    (working copy)
@@ -8,6 +8,7 @@
use CGI;
use CGI::Out;
use Data::Dumper qw(Dumper);
+use Exception::Class;
use Utils qw/Dump/;
Index: trunk/t/bepress/Controller/API/SWNG.t
===================================================================
diff -u -N -r41878 -r41890
--- trunk/t/bepress/Controller/API/SWNG.t (.../SWNG.t) (revision 41878)
+++ trunk/t/bepress/Controller/API/SWNG.t (.../SWNG.t) (revision 41890)
@@ -4,21 +4,21 @@
use warnings;
use 5.10.0;
-use Test::More tests => 12;
Index: trunk/perllib/bepress/API/SWNG.pm
===================================================================
diff -u -N -r41878 -r41885
--- trunk/perllib/bepress/API/SWNG.pm (.../SWNG.pm) (revision 41878)
+++ trunk/perllib/bepress/API/SWNG.pm (.../SWNG.pm) (revision 41885)
@@ -7,7 +7,22 @@
use bepress;
use bepress::ArticleStorage;
+use bepress::Controller::Search qw( %ENABLED_FACETS $MAX_EXPORT_ROWS );
Index: trunk/perllib/bepress/Controller/Search.pm
===================================================================
diff -u -N -r41877 -r41884
--- trunk/perllib/bepress/Controller/Search.pm (.../Search.pm) (revision 41877)
+++ trunk/perllib/bepress/Controller/Search.pm (.../Search.pm) (revision 41884)
@@ -1,17 +1,19 @@
package bepress::Controller::Search;
use strict;
use 5.10.0;
-use parent qw( bepress::Controller );
Index: trunk/perllib/bepress/Controller/API/SWNG.pm
===================================================================
diff -u -N -r41878 -r41880
--- trunk/perllib/bepress/Controller/API/SWNG.pm (.../SWNG.pm) (revision 41878)
+++ trunk/perllib/bepress/Controller/API/SWNG.pm (.../SWNG.pm) (revision 41880)
@@ -15,13 +15,14 @@
$self->add_routes([
- [ '/users/', { action => 'get_users' }, { method => [ 'GET' ] } ],