view release on metacpan or  search on metacpan

lib/Audio/SuperTag/Plugin/FLAC.pm  view on Meta::CPAN

use base qw/Audio::SuperTag::Plugin/;
use Audio::FLAC::Header;
use strict;

sub new {
  my $this = shift;
  my $class = ref($this) || $this;
  my $file = shift;
  my $flac = Audio::FLAC::Header->new($file);
  return bless [ $flac, $file ] => $class;
}

sub file {
  return shift->[1];
}

sub filetype {
  return 'flac';
}

lib/Audio/SuperTag/Plugin/MP3.pm  view on Meta::CPAN

package Audio::SuperTag::Plugin::MP3;

use base qw/Audio::SuperTag::Plugin/;
use MP3::Info qw/get_mp3tag set_mp3tag get_mp3info/;
use strict;

sub new {
  my $this = shift;
  my $class = ref($this) || $this;
  my $file = shift;
  return bless [ $file ] => $class;
}

sub file {
  return shift->[0];
}

sub filetype {
  return 'mp3';
}