#!/usr/bin/perl 

package MP3;

use ExportBase;

our @ISA = qw(ExportBase);

my $description = "MP3 Settings.";
my $devices = "Any MP3 capable device";
my $notes = "";
my $version = "1.4";

sub new{
    my $class = shift;
    my $self = $class->SUPER::new(shift, shift, $description, $devices, $notes, $version);
    $self->Extension(".mp3");
    bless $self, $class;
    return $self;
}

sub export{
    my( $self ) = @_;

    system("avconv -i \'$self->{_inputFile}\' -y -acodec libmp3lame -ac 2 -ab 192k -ar 48000 -vn \'$self->{_outputFile}$self->{_extension}\'");

}

1;
