null list (i.e. return (); ) if $self->services was undefined.
use Spong::Info;
use POSIX;
+use Data::Dumper;
+
package Spong::Host;
# Constructor. This is a lazy constructor in that it doesn't get all it's
sub service_objects {
my( $self, $name ) = @_;
my $servicelist = $self->services();
- return $servicelist->services() if $servicelist;
+ if ( $servicelist ) { return $servicelist->services(); } else { return (); }
}
sub service_names {
my $self = shift;
my $servicelist = $self->services();
- return $servicelist->names() if $servicelist;
+ if ( $servicelist ) { return $servicelist->names(); } else { return (); }
}
sub color {