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>
38 lines
479 B
Perl
38 lines
479 B
Perl
#
|
|
#
|
|
#
|
|
#
|
|
|
|
package Sip::Configuration::Account;
|
|
|
|
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 id {
|
|
my $self = shift;
|
|
return $self->{id};
|
|
}
|
|
|
|
sub institution {
|
|
my $self = shift;
|
|
return $self->{institution};
|
|
}
|
|
|
|
sub password {
|
|
my $self = shift;
|
|
return $self->{password};
|
|
}
|
|
|
|
1;
|