lib/ID3FS/Path.pm

   1 package ID3FS::Path;
   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->{path}=shift;
  15
  16     return $self;
  17 }
  18
  19 sub isdir
  20 {
  21     my($self)=@_;
  22     return 1 if($self->{path} eq "/");
  23     return 0;
  24 }
  25
  26 sub dest
  27 {
  28     my($self)=@_;
  29     return "FIXME";
  30 }
  31
  32 sub dirents
  33 {
  34     my($self)=@_;
  35     return $self->{db}->tags();
  36 }
  37
  38
  39 1;