Changeset 80

Timestamp:

02/17/06 17:31:23

Author:

miyagawa

Message:

• Added (untested) HatenaBookmarkTag? filter
  
• Implemented $entry->add_tag($tag) API
  

Files:

• trunk/plagger/lib/Plagger/Entry.pm (modified) (1 diff)
• trunk/plagger/lib/Plagger/Plugin/Filter/HatenaBookmarkTag.pm (added)

trunk/plagger/lib/Plagger/Entry.pm

@@ -46 +46 @@
-}
-
+sub add_tag {
+    my($self, $tag) = @_;
+    push @{$self->tags}, $tag
+        unless $self->has_tag($tag);
+}
+
-sub permalink {
-    my $self = shift;