2 # Copyright (C) 2013 MnSCU/PALS
6 # This program is free software; you can redistribute it and/or
7 # modify it under the terms of version 2 of the GNU General Public
8 # License as published by the Free Software Foundation.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public
16 # License along with this program; if not, write to the Free
17 # Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
21 package NCIPServer::NCIP::Configuration::Account;
27 my ($class, $obj) = @_;
28 my $type = ref($class) || $class;
30 if (ref($obj) eq "HASH") {
31 return bless $obj, $type; # Just bless the object
34 return bless {}, $type;
44 return $self->{institution};
49 return $self->{password};