Changeset 194

Timestamp:

04/14/09 18:36:36 (15 years ago)

Author:

nanardon

Message:

• clearly separate Catalyst Model and Vote::DB module, making test faster

Location:

trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Vote.pm (modified) (1 diff)
• lib/Vote/DB.pm (modified) (2 diffs)
• lib/Vote/DB/Poll.pm (modified) (2 diffs)
• lib/Vote/DB/common.pm (modified) (1 diff)
• lib/Vote/View/Latex.pm (modified) (1 diff)
• lib/Vote/View/Mail.pm (modified) (2 diffs)
• lib/Vote/View/TT.pm (modified) (2 diffs)

trunk/Makefile.PL

@@ -2 +2 @@
 
 name 'Vote';
-all_from 'lib/Vote.pm';
+all_from 'lib/Vote/DB.pm';
 
 requires 'Catalyst' => '5.7015';

trunk/lib/Vote.pm

@@ -22 +22 @@
     Session::State::Cookie
     /;
-
-our $VERSION = '1.90';
 
 # Configure the application. 

trunk/lib/Vote/DB.pm

@@ -5 +5 @@
 use strict;
 use warnings;
-use Vote;
 use base 'Vote::DB::common';
 use Vote::DB::Poll;
@@ -12 +11 @@
 use Vote::DB::Voting; # see delete_voting()
 use Vote::DB::Choice;
+
+our $VERSION = '1.90';
 
 =head1 NAME

trunk/lib/Vote/DB/Poll.pm

@@ -5 +5 @@
 use strict;
 use warnings;
-use Vote;
+use base 'Vote::DB::common';
 use Crypt::RSA;
 use Crypt::RSA::Key::Public::SSH;
@@ -12 +12 @@
 use XML::Simple;
 use MIME::Base64;
-use base 'Vote::DB::common';
 use Vote::DB::Ballot;
 use Vote::DB::Voting;

trunk/lib/Vote/DB/common.pm

@@ -5 +5 @@
 use strict;
 use warnings;
-use Vote;
 use DBI;
 use vars qw(@EXPORT);

trunk/lib/Vote/View/Latex.pm

@@ -2 +2 @@
 
 use strict;
-use base 'Catalyst::View::TT';
+use base 'Vote::View::TT';
 use LaTeX::Driver;
 use File::Temp;

trunk/lib/Vote/View/Mail.pm

@@ -4 +4 @@
 use base 'Catalyst::View::TT';
 use Mail::Mailer;
-use Vote;
+use Vote::DB;
 
 __PACKAGE__->config(
@@ -31 +31 @@
         'Content-Type' => 'text/plain; charset=UTF-8; format=flowed',
         'Content-Transfer-Encoding' => '8bit',
-        'X-Epoll-version' => $Vote::VERSION,
+        'X-Epoll-version' => $Vote::DB::VERSION,
     });
     print $mailer

trunk/lib/Vote/View/TT.pm

@@ -3 +3 @@
 use strict;
 use base 'Catalyst::View::TT';
+use Vote::DB;
 
 __PACKAGE__->config(
@@ -25 +26 @@
     my ($self, $c) = @_;
 
-    $c->stash->{Vote}{VERSION} = $Vote::VERSION;
+    $c->stash->{Vote}{VERSION} = $Vote::DB::VERSION;
     Catalyst::View::TT::process($self, $c);
 }