C4/SIP/Sip/Configuration/Institution.pm

   1 #
   2 #
   3 #
   4 #
   5
   6 package Sip::Configuration::Institution;
   7
   8 use strict;
   9 use warnings;
  10 use English;
  11 # use Exporter;
  12
  13 sub new {
  14     my ($class, $obj) = @_;
  15     my $type = ref($class) || $class;
  16
  17     if (ref($obj) eq "HASH") {
  18     # Just bless the object
  19     return bless $obj, $type;
  20     }
  21
  22     return bless {}, $type;
  23 }
  24
  25 sub name {
  26     my $self = shift;
  27     return $self->{name};
  28 }
  29
  30 sub id {
  31     my $self = shift;
  32     return $self->{id};
  33 }
  34
  35 sub implementation {
  36     my $self = shift;
  37     return $self->{implementation};
  38 }
  39
  40 sub policy {
  41     my $self = shift;
  42     return $self->{policy};
  43 }
  44
  45 # 'policy' => {
  46 #     'checkout' => 'true',
  47 #     'retries' => 5,
  48 #     'checkin' => 'true',
  49 #     'timeout' => 25,
  50 #     'status_update' => 'false',
  51 #     'offline' => 'false',
  52 #     'renewal' => 'true'
  53 # },
  54
  55 sub parms {
  56     my $self = shift;
  57     return $self->{parms};
  58 }
  59
  60 1;