C4/SIP/Sip/Configuration/Service.pm

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