#!/usr/bin/perl 

package Symlink;

use ExportBase;

our @ISA = qw(ExportBase);

my $description = "Symlink Settings.";
my $devices = "";
my $notes = "";
my $version = "1.0";

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

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

    system("ln -s \'$self->{_inputFile}\' \'$self->{_outputFile}$self->{_extension}\'");

}

1;
