Changeset 80

Show
Ignore:
Timestamp:
02/17/06 17:31:23
Author:
miyagawa
Message:
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/lib/Plagger/Entry.pm

    r79 r80  
    4646} 
    4747 
     48sub add_tag { 
     49    my($self, $tag) = @_; 
     50    push @{$self->tags}, $tag 
     51        unless $self->has_tag($tag); 
     52} 
     53 
    4854sub permalink { 
    4955    my $self = shift;