lib/ID3FS/PathElement/Tag.pm

   1 package ID3FS::PathElement::Tag;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub new
   7 {
   8     my $proto=shift;
   9     my $class=ref($proto) || $proto;
  10     my $self={};
  11     bless($self,$class);
  12
  13     $self->{db}=shift;
  14     $self->{name}=shift;
  15     $self->{parents_id}=shift;
  16     $self->{id}=$self->{db}->lookup_id("tags", $self->{name}, $self->{parents_id});
  17     return(undef) unless(defined($self->{id}));
  18     return($self);
  19 }
  20
  21 sub type { return "tag"; }
  22 sub id { return shift->{id}; }
  23
  24 1;