C4/SIP/Sip/Configuration/Institution.pm

   1 #
   2 #
   3 #
   4 #
   5
   6 package Sip::Configuration::Institution;
   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 sub name {
  26     my $self = shift;
  27
  28     return $self->{name};
  29 }
  30
  31 1;