Permalink
Browse files

Disabled default perl warnings for production, cleaned up some smoke …

…tests
  • Loading branch information...
1 parent 9a3648c commit 12454008167516f62f21c557cee625f98fa20d3d @solargroovy solargroovy committed Jan 19, 2012
Showing with 821 additions and 107 deletions.
  1. +1 −1 Apache2/xForwardedFor.pm
  2. +1 −1 Kynetx.pm
  3. +1 −1 Kynetx/Actions.pm
  4. +1 −1 Kynetx/Actions/Annotate.pm
  5. +1 −1 Kynetx/Actions/Email.pm
  6. +1 −1 Kynetx/Actions/FlippyLoo.pm
  7. +1 −1 Kynetx/Actions/JQueryUI.pm
  8. +1 −1 Kynetx/Actions/LetItSnow.pm
  9. +1 −1 Kynetx/Authz.pm
  10. +1 −1 Kynetx/Callbacks.pm
  11. +1 −1 Kynetx/Configure.pm
  12. +1 −1 Kynetx/Console.pm
  13. +1 −1 Kynetx/Datasets.pm
  14. +1 −1 Kynetx/Directives.pm
  15. +1 −1 Kynetx/Dispatch.pm
  16. +1 −1 Kynetx/Endpoints.pm
  17. +1 −1 Kynetx/Endpoints/KNS.pm
  18. +1 −1 Kynetx/Environments.pm
  19. +1 −1 Kynetx/Errors.pm
  20. +1 −1 Kynetx/Events.pm
  21. +1 −1 Kynetx/Events/Primitives.pm
  22. +1 −1 Kynetx/Events/State.pm
  23. +2 −2 Kynetx/Expressions.pm
  24. +1 −1 Kynetx/FakeReq.pm
  25. +1 −1 Kynetx/JParser.pm
  26. +1 −1 Kynetx/JSONPath.pm
  27. +1 −1 Kynetx/JavaReconnect.pm
  28. +1 −1 Kynetx/JavaScript.pm
  29. +1 −1 Kynetx/JavaScript/AST.pm
  30. +1 −1 Kynetx/Json.pm
  31. +1 −1 Kynetx/KOBJ.pm
  32. +1 −1 Kynetx/Keys.pm
  33. +1 −1 Kynetx/Log.pm
  34. +1 −1 Kynetx/Memcached.pm
  35. +1 −1 Kynetx/Modules.pm
  36. +1 −1 Kynetx/Modules/Address.pm
  37. +1 −1 Kynetx/Modules/Email.pm
  38. +1 −1 Kynetx/Modules/HTTP.pm
  39. +1 −1 Kynetx/Modules/OAuthModule.pm
  40. +1 −1 Kynetx/Modules/PDS.pm
  41. +1 −1 Kynetx/Modules/Random.pm
  42. +1 −1 Kynetx/Modules/This2That.pm
  43. +1 −1 Kynetx/Modules/Twilio.pm
  44. +1 −1 Kynetx/Modules/Twitter.pm
  45. +1 −1 Kynetx/Modules/URI.pm
  46. +1 −1 Kynetx/MongoDB.pm
  47. +1 −1 Kynetx/OAuth.pm
  48. +1 −1 Kynetx/OParser.pm
  49. +1 −1 Kynetx/Operators.pm
  50. +1 −1 Kynetx/Operators/Query.pm
  51. +1 −1 Kynetx/Parser.pm
  52. +1 −1 Kynetx/Persistence.pm
  53. +1 −1 Kynetx/Persistence/Application.pm
  54. +1 −1 Kynetx/Persistence/Entity.pm
  55. +1 −1 Kynetx/Persistence/KEN.pm
  56. +1 −1 Kynetx/Persistence/KToken.pm
  57. +1 −1 Kynetx/Persistence/UserState.pm
  58. +1 −1 Kynetx/PersistentDataService.pm
  59. +1 −1 Kynetx/Postlude.pm
  60. +1 −1 Kynetx/Predicates/Amazon.pm
  61. +1 −1 Kynetx/Predicates/Amazon/ItemLookup.pm
  62. +1 −1 Kynetx/Predicates/Amazon/ItemSearch.pm
  63. +1 −1 Kynetx/Predicates/Amazon/RequestSignatureHelper.pm
  64. +1 −1 Kynetx/Predicates/Amazon/SNS.pm
  65. +1 −1 Kynetx/Predicates/Amazon/SNS/Response.pm
  66. +1 −1 Kynetx/Predicates/Demographics.pm
  67. +1 −1 Kynetx/Predicates/Facebook.pm
  68. +1 −1 Kynetx/Predicates/Google.pm
  69. +1 −1 Kynetx/Predicates/Google/Calendar.pm
  70. +1 −1 Kynetx/Predicates/Google/OAuthHelper.pm
  71. +1 −1 Kynetx/Predicates/KPDS.pm
  72. +1 −1 Kynetx/Predicates/Location.pm
  73. +1 −1 Kynetx/Predicates/Markets.pm
  74. +1 −1 Kynetx/Predicates/Math.pm
  75. +1 −1 Kynetx/Predicates/MediaMarkets.pm
  76. +1 −1 Kynetx/Predicates/Mobile.pm
  77. +1 −1 Kynetx/Predicates/OData.pm
  78. +1 −1 Kynetx/Predicates/Page.pm
  79. +1 −1 Kynetx/Predicates/RSS.pm
  80. +1 −1 Kynetx/Predicates/Referers.pm
  81. +1 −1 Kynetx/Predicates/Time.pm
  82. +1 −1 Kynetx/Predicates/Useragent.pm
  83. +1 −1 Kynetx/Predicates/Weather.pm
  84. +1 −1 Kynetx/PrettyPrinter.pm
  85. +1 −1 Kynetx/Repository.pm
  86. +1 −1 Kynetx/Request.pm
  87. +1 −1 Kynetx/Response.pm
  88. +1 −1 Kynetx/Rids.pm
  89. +1 −1 Kynetx/RuleManager.pm
  90. +1 −1 Kynetx/Rules.pm
  91. +1 −1 Kynetx/Scheduler.pm
  92. +1 −1 Kynetx/Session.pm
  93. +1 −1 Kynetx/Sky.pm
  94. +1 −1 Kynetx/Test.pm
  95. +1 −2 Kynetx/Util.pm
  96. +1 −1 Kynetx/Version.pm
  97. +716 −0 Log/Log4perl/Appender.pm
  98. +1 −1 Log/Log4perl/Appender/ErrorStack.pm
  99. +1 −1 etc/kynetx-private-bundle/Bundle/kobj_modules.pm
  100. +1 −1 startup-krl.pl
  101. +1 −0 startup.pl
  102. +1 −1 t/ExprTests.pm
  103. +0 −2 t/Expressions.t
  104. +1 −1 t/Selenium/Selenium.pm
  105. +1 −1 t/data/production.yml
  106. +1 −1 t/data/qa.yml
@@ -19,7 +19,7 @@ package Apache2::xForwardedFor;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use constant DEBUG=> $ENV{'xForwardedFor_DEBUG'} || 0;
use constant TEST=> $ENV{'xForwardedFor_TEST'} || 0; # note that there are 2 testing levels TEST>1 will set the required additional header
View
@@ -20,7 +20,7 @@ package Kynetx;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
no warnings qw(uninitialized);
View
@@ -21,7 +21,7 @@ package Kynetx::Actions;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use JSON::XS;
@@ -21,7 +21,7 @@ package Kynetx::Actions::Annotate;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
@@ -21,7 +21,7 @@ package Kynetx::Actions::Email;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
@@ -21,7 +21,7 @@ package Kynetx::Actions::FlippyLoo;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
@@ -21,7 +21,7 @@ package Kynetx::Actions::JQueryUI;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
@@ -21,7 +21,7 @@ package Kynetx::Actions::LetItSnow;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
View
@@ -21,7 +21,7 @@ package Kynetx::Authz;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
View
@@ -20,7 +20,7 @@ package Kynetx::Callbacks;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
View
@@ -20,7 +20,7 @@ package Kynetx::Configure;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use YAML::XS;
View
@@ -20,7 +20,7 @@ package Kynetx::Console;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use HTML::Template;
View
@@ -21,7 +21,7 @@ package Kynetx::Datasets;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use utf8;
use Log::Log4perl qw(get_logger :levels);
@@ -21,7 +21,7 @@ package Kynetx::Directives;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
View
@@ -20,7 +20,7 @@ package Kynetx::Dispatch;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
View
@@ -21,7 +21,7 @@ package Kynetx::Endpoints;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use lib qw(/web/lib/perl);
use Log::Log4perl qw(get_logger :levels);
@@ -20,7 +20,7 @@ package Kynetx::Endpoints::KNS;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use utf8;
use lib qw(/web/lib/perl);
@@ -20,7 +20,7 @@ package Kynetx::Environments;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Data::Dumper;
View
@@ -21,7 +21,7 @@ package Kynetx::Errors;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
View
@@ -21,7 +21,7 @@ package Kynetx::Events;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
@@ -21,7 +21,7 @@ package Kynetx::Events::Primitives;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Data::Dumper;
@@ -21,7 +21,7 @@ package Kynetx::Events::State;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
no warnings qw(uninitialized);
use Log::Log4perl qw(get_logger :levels);
@@ -21,8 +21,8 @@ package Kynetx::Expressions;
# MA 02111-1307 USA
#
use strict;
-use warnings;
-no warnings qw(uninitialized);
+#use warnings;
+#no warnings qw(uninitialized);
use utf8;
View
@@ -48,7 +48,7 @@ package Kynetx::FakeReq;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
#
# This package simulates a mod_perl request object for testing
View
@@ -20,7 +20,7 @@ package Kynetx::JParser;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use lib qw(/web/lib/perl);
use Exporter;
View
@@ -20,7 +20,7 @@ package Kynetx::JSONPath;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use JSON::XS;
@@ -20,7 +20,7 @@ package Kynetx::JavaReconnect;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Inline::Java;
@@ -20,7 +20,7 @@ package Kynetx::JavaScript;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use utf8;
use Log::Log4perl qw(get_logger :levels);
@@ -21,7 +21,7 @@ package Kynetx::JavaScript::AST;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
no warnings qw(uninitialized);
View
@@ -21,7 +21,7 @@ package Kynetx::Json;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use utf8;
use Log::Log4perl qw(get_logger :levels);
View
@@ -20,7 +20,7 @@ package Kynetx::KOBJ;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
no warnings qw(uninitialized);
use File::Find::Rule;
View
@@ -21,7 +21,7 @@ package Kynetx::Keys;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
View
@@ -20,7 +20,7 @@ package Kynetx::Log;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
no warnings qw(uninitialized);
use Log::Log4perl qw(get_logger :levels);
View
@@ -20,7 +20,7 @@ package Kynetx::Memcached;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
no warnings qw(uninitialized);
use utf8;
View
@@ -20,7 +20,7 @@ package Kynetx::Modules;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use lib qw(/web/lib/perl);
use Log::Log4perl qw(get_logger :levels);
@@ -20,7 +20,7 @@ package Kynetx::Modules::Address;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Geo::StreetAddress::US;
@@ -22,7 +22,7 @@ package Kynetx::Modules::Email;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use lib qw(/web/lib/perl);
use Log::Log4perl qw(get_logger :levels);
@@ -22,7 +22,7 @@ package Kynetx::Modules::HTTP;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
@@ -20,7 +20,7 @@ package Kynetx::Modules::OAuthModule;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Data::Dumper;
@@ -20,7 +20,7 @@ package Kynetx::Modules::PDS;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Data::Dumper;
@@ -20,7 +20,7 @@ package Kynetx::Modules::Random;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Data::Dumper;
@@ -20,7 +20,7 @@ package Kynetx::Modules::This2That;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
use Data::Dumper;
@@ -20,7 +20,7 @@ package Kynetx::Modules::Twilio;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use lib qw(/web/lib/perl);
use Log::Log4perl qw(get_logger :levels);
@@ -20,7 +20,7 @@ package Kynetx::Modules::Twitter;
# MA 02111-1307 USA
#
use strict;
-use warnings;
+#use warnings;
use Log::Log4perl qw(get_logger :levels);
Oops, something went wrong.

0 comments on commit 1245400

Please sign in to comment.