cleaning up module includes for msva-perl
authorDaniel Kahn Gillmor <dkg@fifthhorseman.net>
Sun, 10 Jan 2010 16:28:24 +0000 (11:28 -0500)
committerDaniel Kahn Gillmor <dkg@fifthhorseman.net>
Sun, 10 Jan 2010 16:28:24 +0000 (11:28 -0500)
msva

diff --git a/msva b/msva
index 63930c833c69d0016d46da4fbbf006a2117d4ae9..4771db6f720100580d1a0f18d70e4cf29645957f 100755 (executable)
--- a/msva
+++ b/msva
@@ -6,12 +6,9 @@ use strict;
 {
   package MSVA;
 
-  use HTTP::Server::Simple::CGI;
-  use base qw(HTTP::Server::Simple::CGI);
-  use warnings;
-  use strict;
-  use Crypt::GPG;
-  use Crypt::X509;
+  use parent qw(HTTP::Server::Simple::CGI);
+  require Crypt::GPG;
+  require Crypt::X509;
 
   use JSON;
 
@@ -90,6 +87,8 @@ use strict;
 
     return '500 not yet implemented', { };
   }
+
+  1;
 }
 
 my $server = MSVA->new();