C4/SIP/Sip/Configuration/Service.pm

   1 #
   2 #
   3 #
   4 #
   5
   6 package C4::SIP::Sip::Configuration::Service;
   7
   8 use strict;
   9 use warnings;
  10
  11 sub new {
  12     my ($class, $obj) = @_;
  13     my $type = ref($class) || $class;
  14
  15     if (ref($obj) eq "HASH") {
  16         # Just bless the object
  17         return bless $obj, $type;
  18     }
  19
  20     return bless {}, $type;
  21 }
  22
  23 1;