my $self={};
bless($self,$class);
- my $path=shift;
- my $ext=($path=~/.*\.(.*)/)[0];
+ $self->{path}=shift;
+ my $ext=($self->{path}=~/.*\.(.*)/)[0];
return undef unless($ext);
my $me=shift;
$ext=lc($ext);
if($ext eq "mp3")
{
- $self->{audiofile}=ID3FS::AudioFile::Mp3->new($path);
+ $self->{audiofile}=ID3FS::AudioFile::Mp3->new($self->{path});
}
elsif($ext eq "ogg")
{
- $self->{audiofile}=ID3FS::AudioFile::Ogg->new($path);
+ $self->{audiofile}=ID3FS::AudioFile::Ogg->new($self->{path});
}
elsif($ext eq "flac")
{
- $self->{audiofile}=ID3FS::AudioFile::Flac->new($path);
+ $self->{audiofile}=ID3FS::AudioFile::Flac->new($self->{path});
}
else
{
- print("$me: $path: Unknown extension: $ext\n");
+ print("$me: $self->{path}: Unknown extension: $ext\n");
return undef;
}
return $self;
sub comment { return(shift->set("comment", @_)); }
sub audiotype { return(shift->set("audiotype")); }
sub haspic { return(shift->set("haspic")); }
+sub path { return(shift->{path}); }
sub delete_artist { shift->{audiofile}->delete_artist(); }
sub delete_album { shift->{audiofile}->delete_album(); }