C4/SIP/Sip/Configuration/Institution.pm

   1 #
   2 #
   3 #
   4 #
   5
   6 package C4::SIP::Sip::Configuration::Institution;
   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 name {
  24     my $self = shift;
  25     return $self->{name};
  26 }
  27
  28 sub id {
  29     my $self = shift;
  30     return $self->{id};
  31 }
  32
  33 sub implementation {
  34     my $self = shift;
  35     return $self->{implementation};
  36 }
  37
  38 sub policy {
  39     my $self = shift;
  40     return $self->{policy};
  41 }
  42
  43 # 'policy' => {
  44 #     'checkout' => 'true',
  45 #     'retries' => 5,
  46 #     'checkin' => 'true',
  47 #     'timeout' => 25,
  48 #     'status_update' => 'false',
  49 #     'offline' => 'false',
  50 #     'renewal' => 'true'
  51 # },
  52
  53 sub parms {
  54     my $self = shift;
  55     return $self->{parms};
  56 }
  57
  58 1;