package SIP::_Mod_Name_;

# Version number
$VERSION = 0.01;

use strict;

#use Opals::_Some_Module_;
#use SIP::_Some_Module_;

################################################################################
sub new {
  my $class = shift;
  my (%param) = (@_);

  my $dbh = $param{'dbh'};

  return unless $dbh;

  my $this = { dbh => $dbh, };

  bless $this, $class;

  $this->set(%param);

  return $this;
}

############################################################
sub init {
  my $this = shift;

  foreach my $k (keys %{$this}) {
    delete $this->{$k} unless ($k eq 'dbh');
  }
}

############################################################
sub set {
  my $this = shift;

  return unless (@_);

  my (%param) = (@_);

  $this->init();

  # do something...
}

############################################################
# called either by $this or package name, e.i.: SIP::_Mod_Name_->sub1()
sub sub1 {
  my $this = shift;

  return unless (@_);

  my (%param) = (@_);

  # do something...
}

1;