package Olio;
use strict;
require Exporter;
use vars qw($VERSION @ISA);
$VERSION = 0.01;
@ISA = qw(Exporter);

sub new {
    my $class = shift;
    my $self = {};
    $self->{NIMI} = undef;
    $self->{OSOITE} = [];
    bless $self, $class;
    $self->_synnyin();
    return $self;
}

sub _synnyin {
    print "Olio syntyi!\n";
}

sub nimi {
    my $self = shift;
    if (@_) { $self->{NIMI} = shift }
    return $self->{NIMI};
}

sub osoite {
    my $self = shift;
    if (@_) { @{ $self->{OSOITE} } = @_ }
    return @{ $self->{OSOITE} };
}

sub DESTROY {
    print '- 'x20, "\nHeippa...\n";
}

1;