renamed s/Tags/November::Tags/

viklund · Dec 11, 2009 · 198e75a · 198e75a
1 parent 55d4deb
commit 198e75a
Show file tree

Hide file tree

Showing 6 changed files with 10 additions and 10 deletions.
diff --git a/lib/November.pm b/lib/November.pm
@@ -7,7 +7,7 @@ use Digest;
 class November does Session does Cache {
 
     use CGI;
-    use Tags;
+    use November::Tags;
     use HTML::Template;
     use Dispatcher;
     use Utils;

diff --git a/lib/Tags.pm → lib/November/Tags.pm b/lib/Tags.pm → lib/November/Tags.pm
@@ -2,7 +2,7 @@ use v6;
 
 use Config;
 
-class Tags {
+class November::Tags {
     my $server_root = Config.new.server_root;
     my $.page_tags_path  is rw = $server_root ~ 'data/page_tags/';
     my $.tags_count_path is rw = $server_root ~ 'data/tags_count';

diff --git a/t/tags/norm.t b/t/tags/norm.t
@@ -3,7 +3,7 @@ use v6;
 use Test;
 plan 1;
 
-use Tags;
+use November::Tags;
 
 my @counts_to_test = 
         [ 2, 5, 6, 14 ], 
@@ -13,7 +13,7 @@ my @counts_to_test =
 #        [ 5,  5,  2, 1 ], 
 #        [ 10, 10, 4, 0 ]
 ;
-my $t = Tags.new;
+my $t = November::Tags.new;
 
 for @counts_to_test -> $in, $expected {
 

diff --git a/t/tags/norm_counts.t b/t/tags/norm_counts.t
@@ -3,7 +3,7 @@ use v6;
 use Test;
 plan 3;
 
-use Tags;
+use November::Tags;
 
 role Testing {
     method clear {
@@ -12,7 +12,7 @@ role Testing {
     }
 }
 
-my $t = Tags.new does Testing;
+my $t = November::Tags.new does Testing;
 $t.tags_count_path = 't/tags/data/tags_count';
 $t.clear;
 

diff --git a/t/tags/parser.t b/t/tags/parser.t
@@ -3,7 +3,7 @@ use v6;
 use Test;
 plan 11;
 
-use Tags;
+use November::Tags;
 
 my @to_parse = (    
     'foo',
@@ -30,7 +30,7 @@ my @to_parse = (
       ['foo', 'bar', 'perl 6'],
 );
 
-my $t = Tags.new;
+my $t = November::Tags.new;
 
 for @to_parse -> $in, $expected {
     is_deeply( [$t.tags_parse($in)], $expected, 'Parse tags: ' ~ $in.perl);

diff --git a/t/tags/update_tags.t b/t/tags/update_tags.t
@@ -3,7 +3,7 @@ use v6;
 use Test;
 plan 8;
 
-use Tags;
+use November::Tags;
 
 role Testing {
     method clear ($_:) {
@@ -15,7 +15,7 @@ role Testing {
     }
 }
 
-my $t = Tags.new does Testing;
+my $t = November::Tags.new does Testing;
 $t.page_tags_path  = 't/tags/data/page_tags/';
 $t.tags_count_path = 't/tags/data/tags_count';
 $t.tags_index_path = 't/tags/data/tags_index';