61 lines
856 B
Perl
61 lines
856 B
Perl
#
|
|
#
|
|
#
|
|
#
|
|
|
|
package Sip::Configuration::Institution;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use English;
|
|
# use Exporter;
|
|
|
|
sub new {
|
|
my ($class, $obj) = @_;
|
|
my $type = ref($class) || $class;
|
|
|
|
if (ref($obj) eq "HASH") {
|
|
# Just bless the object
|
|
return bless $obj, $type;
|
|
}
|
|
|
|
return bless {}, $type;
|
|
}
|
|
|
|
sub name {
|
|
my $self = shift;
|
|
return $self->{name};
|
|
}
|
|
|
|
sub id {
|
|
my $self = shift;
|
|
return $self->{id};
|
|
}
|
|
|
|
sub implementation {
|
|
my $self = shift;
|
|
return $self->{implementation};
|
|
}
|
|
|
|
sub policy {
|
|
my $self = shift;
|
|
return $self->{policy};
|
|
}
|
|
|
|
# 'policy' => {
|
|
# 'checkout' => 'true',
|
|
# 'retries' => 5,
|
|
# 'checkin' => 'true',
|
|
# 'timeout' => 25,
|
|
# 'status_update' => 'false',
|
|
# 'offline' => 'false',
|
|
# 'renewal' => 'true'
|
|
# },
|
|
|
|
sub parms {
|
|
my $self = shift;
|
|
return $self->{parms};
|
|
}
|
|
|
|
1;
|