Source

Quad-Pres / installer / perl5 / Shlomif / Arad / Object.pm

package Shlomif::Arad::Object;

use strict;
use warnings;

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;