lib/NCIP/Configuration/Service.pm

   1 package NCIP::Configuration::Service;
   2
   3 use Modern::Perl;
   4
   5 sub new {
   6     my ($class, $obj) = @_;
   7     my $type = ref($class) || $class;
   8
   9     if (ref($obj) eq "HASH") {
  10         # Just bless the object
  11         return bless $obj, $type;
  12     }
  13
  14     return bless {}, $type;
  15 }
  16
  17 1;