7e7b3731dc
Adding a use English to mosules which dont may waste a few CPU cycles and bytes of storage but doesnt add anything to the sum of human happiness Remove unnecessary use English's Removed already commented out but equally unnrcessary use Exporter in same modules Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
58 lines
827 B
Perl
58 lines
827 B
Perl
#
|
|
#
|
|
#
|
|
#
|
|
|
|
package Sip::Configuration::Institution;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
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;
|