package addon1;

sub new
{
    my $class = shift;
    my $self = [];

    return bless $self, $class;
}

sub ACE_INIT {

	shift;
	my $test = shift;

	$$test = "bar";
}

return "addon1";