Koha-clms/C4/SIP/Sip/Configuration/Service.pm

24 lines
275 B
Perl

#
#
#
#
package Sip::Configuration::Service;
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;
}
1;