C4/SIP/Sip/Configuration/Account.pm

   1 #
   2 #
   3 #
   4 #
   5
   6 package Sip::Configuration::Account;
   7
   8 use strict;
   9 use warnings;
  10
  11 sub new {
  12     my ($class, $obj) = @_;
  13     my $type = ref($class) || $class;
  14
  15     if (ref($obj) eq "HASH") {
  16         # Just bless the object
  17         return bless $obj, $type;
  18     }
  19
  20     return bless {}, $type;
  21 }
  22
  23 sub id {
  24     my $self = shift;
  25     return $self->{id};
  26 }
  27
  28 sub institution {
  29     my $self = shift;
  30     return $self->{institution};
  31 }
  32
  33 sub password {
  34     my $self = shift;
  35     return $self->{password};
  36 }
  37
  38 1;