projects
/
id3fs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
5020908a98906b44c3d747b07627c47a2763e645
[id3fs.git]
/
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->{id}=($self->{db}->tag_id($self->{name}));
16
return(undef) unless(defined($self->{id}));
17
print "TAG ID: $self->{id}\n";
18
return($self);
19
}
20
21
sub type { return "tag"; }
22
23
1;