lib/ID3FS/File/Flac.pm

   1 package ID3FS::File::Flac;
   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     # FIXME
  13     print "FLAC UNIMPLEMENTED\n";
  14     $self->{path}=shift;
  15     return $self;
  16 }
  17
  18 1;