package Mail::LMLM::Object;

use strict;

sub new
{
    my $class = shift;
    my $self = {};
    
    bless($self, $class);
    
    $self->initialize(@_);
    
    return $self;
}

sub initialize
{
    my $self = shift;

    return 0;
}

sub destroy_
{
    my $self = shift;
    
    return 0;
}

sub DESTROY
{
    my $self = shift;
    
    $self->destroy_();
}

1;

__END__

=head1 Mail::LMLM::Object

Warning! This is an internal Mail::LMLM class. It is used as the base class
for all LMLM objects.

=head1 FUNCTIONS

=head2 new

The default constructor.

=head2 $self->initialize(@args)

Should be over-rided to initialize the object.

=head2 $self->destroy_()

Destroys the object.

=head2 DESTROY

the default destructor.

=head1 AUTHOR

Shlomi Fish, L<http://www.shlomifish.org/>.