Subclass get/set in Snippet to handle a possible 'keyword' get/set op…

…eration.
AlliumCepa · Jun 3, 2010 · bf88cb4 · bf88cb4
1 parent 58d68a6
commit bf88cb4
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 1 deletion.
diff --git a/lib/WebGUI/Asset/Snippet.pm b/lib/WebGUI/Asset/Snippet.pm
@@ -295,6 +295,28 @@ sub www_view {
     return $output;
 }
 
+#-------------------------------------------------------------------
+
+override set => sub {
+    my $self = shift;
+    super();
+    my $properties = @_ % 2 ? shift : { @_ };
+    if(exists $properties->{keywords}) {
+        $self->keywords($properties->{keywords});
+    }
+};
+
+override get => sub {
+    my $self = shift;
+    if( @_ and $_[0] eq 'keywords' ) { 
+        return $self->keywords;
+    }
+    return super();
+};
+
+#-------------------------------------------------------------------
+
 __PACKAGE__->meta->make_immutable;
+
 1;
 
diff --git a/t/Keyword.t b/t/Keyword.t
@@ -30,7 +30,7 @@ isa_ok($home, "WebGUI::Asset");
 my $keyword = WebGUI::Keyword->new($session);
 isa_ok($keyword, "WebGUI::Keyword");
 
-$keyword->setKeywordsForAsset({ asset=>$home, keywords=>"test key, word, foo bar"});
+$keyword->setKeywordsForAsset({ asset=>$home, keywords=>"test key, word, foo bar"}); # XXX does this step into the Asset and set its keyword attribute?
 my ($count) = $session->db->quickArray("select count(*) from assetKeyword where assetId=?", [$home->getId]);
 is($count, 3, "setKeywordsForAsset() create");
 cmp_bag(