use strict;

use strict;

use warnings;

use warnings;

use Exporter;

use Exporter;

use Readonly;

use Readonly;

package Sip::Configuration;

package Sip::Configuration;

use strict;

use strict;

use warnings;

use warnings;

use XML::Simple qw(:strict);

use XML::Simple qw(:strict);

use strict;

use strict;

use warnings;

use warnings;

sub new {

sub new {

    my ($class, $obj) = @_;

    my ($class, $obj) = @_;

use strict;

use strict;

use warnings;

use warnings;

sub new {

sub new {

    my ($class, $obj) = @_;

    my ($class, $obj) = @_;

use strict;

use strict;

use warnings;

use warnings;

sub new {

sub new {

    my ($class, $obj) = @_;

    my ($class, $obj) = @_;