Paysys модули

#**********************************************************
=head2 new($db, $admin, $CONF)

  Arguments:
    $db    - ссылка на обьект базы данных (required)
    $admin - ссылка на обьект администратора (required)
    $CONF  - ссылка на хеш %conf (required)
    $attr  - {
		в атрибутах передаем дополнительные параметры
    }

  Returns:
    $self - обьект класса платежной системы

=cut
#**********************************************************
sub new {
  my $class = shift;

  my ($db, $admin, $CONF, $attr) = @_;

  my $self = {
    db    => $db,
    admin => $admin,
    conf  => $CONF,
    DEBUG => $CONF->{PAYSYS_DEBUG} || 0,
  };


  bless($self, $class);

  return $self;
}