Ensure we remove any unused tags from DB

Author: zoffixznet

lib/ModulesPerl6/Model/Dists.pm

@@ -114,6 +114,12 @@ sub remove_old {
     my $num_deleted = $res->all;
     $res->delete_all;
 
+    # toss no-longer-used tags
+    $self->_db->resultset("Tag")->search(
+        { "tag_dists.tag" => undef },
+        { prefetch => { "tag_dists" => "tag" } },
+    )->delete_all;
+
     $num_deleted;
 }
 

lib/ModulesPerl6/Model/Dists/Schema/Result/TagDist.pm

@@ -1,13 +1,12 @@
 package ModulesPerl6::Model::Dists::Schema::Result::TagDist;
 use     ModulesPerl6::Model::ResultClass;
 
-primary_column tag  => { data_type => 'text' };
-primary_column dist => { data_type => 'text' };
+primary_column tag  => { data_type => 'text', is_foreign_key => 1  };
+primary_column dist => { data_type => 'text', is_foreign_key => 1  };
 
 belongs_to tag  => 'ModulesPerl6::Model::Dists::Schema::Result::Tag';
 belongs_to dist => 'ModulesPerl6::Model::Dists::Schema::Result::Dist';
 
 1;
 
 __END__
-