package Iglu::LMLM::Types::Hamakor; use strict; use Iglu::LMLM::Types::Iglu; use vars qw(@ISA); @ISA=qw(Iglu::LMLM::Types::Iglu); sub get_default_hostname { my $self = shift; return "hamakor.org.il"; } 1;
package Iglu::LMLM::Types::Hamakor; use strict; use Iglu::LMLM::Types::Iglu; use vars qw(@ISA); @ISA=qw(Iglu::LMLM::Types::Iglu); sub get_default_hostname { my $self = shift; return "hamakor.org.il"; } 1;