From 90924262ea822854ba6d3c21c9e522687c5b2fca Mon Sep 17 00:00:00 2001
From: vti <viacheslav.t@gmail.com>
Date: Wed, 4 Jun 2008 12:56:33 +0300
Subject: [PATCH] dependencies small cleanup

---
 Makefile.PL          | 56 ++++++++++++++++++++++++++++++++--------------------
 lib/Blog/RDBO/Tag.pm | 10 ++++------
 2 files changed, 39 insertions(+), 27 deletions(-)
 rewrite Makefile.PL (60%)

diff --git a/Makefile.PL b/Makefile.PL
dissimilarity index 60%
index e5150c1..e0088ba 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,21 +1,35 @@
-use inc::Module::Install;
-
-name 'Blog';
-all_from 'lib/Blog.pm';
-
-requires(
-    'Catalyst'                         => '5.7012',
-    'Catalyst::Plugin::ConfigLoader'   => '',
-    'Catalyst::Plugin::Static::Simple' => '',
-    'Catalyst::Action::RenderView'     => '',
-    'YAML'                             => '',
-
-    'FCGI'              => '',
-    'FCGI::ProcManager' => '',
-);
-
-catalyst;
-
-install_script glob('script/*.pl');
-auto_install;
-WriteAll;
+use inc::Module::Install;
+
+name 'Blog';
+all_from 'lib/Blog.pm';
+
+requires(
+    'YAML' => '',
+
+    'Catalyst'                                 => '5.7012',
+    'Catalyst::Action::RenderView'             => '',
+    'Catalyst::Model::RDBO'                    => '',
+    'Catalyst::View::TT::Alloy'                => '',
+    'Catalyst::Authentication::Store::Minimal' => '',
+
+    'Catalyst::Plugin::ConfigLoader'             => '',
+    'Catalyst::Plugin::Static::Simple'           => '',
+    'Catalyst::Plugin::Unicode'                  => '',
+    'Catalyst::Plugin::Session'                  => '',
+    'Catalyst::Plugin::Session::Store::FastMmap' => '',
+    'Catalyst::Plugin::Session::State::Cookie'   => '',
+    'Catalyst::Plugin::Authentication'           => '',
+    'Catalyst::Plugin::I18N'                     => '',
+
+    'FCGI'              => '',
+    'FCGI::ProcManager' => '',
+
+    'Time::Local' => '',
+    'HTTP::Date'  => '',
+);
+
+catalyst;
+
+install_script glob( 'script/*.pl' );
+auto_install;
+WriteAll;
diff --git a/lib/Blog/RDBO/Tag.pm b/lib/Blog/RDBO/Tag.pm
index 82c49c6..f9d47ca 100644
--- a/lib/Blog/RDBO/Tag.pm
+++ b/lib/Blog/RDBO/Tag.pm
@@ -4,8 +4,6 @@ use strict;
 
 use base qw(Blog::DB::Object);
 
-use HTML::TagCloud;
-
 __PACKAGE__->meta->setup(
     table => 'tag',
 
@@ -22,8 +20,8 @@ __PACKAGE__->meta->setup(
 
     relationships => [
         post_tag_map => {
-            type => 'one to many',
-            class => 'Blog::RDBO::PostTagMap',
+            type       => 'one to many',
+            class      => 'Blog::RDBO::PostTagMap',
             column_map => { id => 'tag_id' }
         },
         posts => {
@@ -35,12 +33,12 @@ __PACKAGE__->meta->setup(
     ]
 );
 
-__PACKAGE__->utf8_columns( qw/ name /);
+__PACKAGE__->utf8_columns( qw/ name / );
 
 sub map_count {
     my ( $self ) = shift;
 
-    $self->{ map_count } = $_[0] if @_;
+    $self->{ map_count } = $_[ 0 ] if @_;
 
     return $self->{ map_count };
 }
-- 
2.11.4.GIT