+ connected() method for IS.pm

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@328 3ce903b1-3385-4e86-93cd-f9a4a239f7ac

tests/libperl/Ham/APRS/IS.pm

@@ -184,6 +184,22 @@ sub connect($;%)
 	return 1;
 }
 
+=head1 connected()
+
+Checks whether we're connected currently. Returns 1 for connected, 0 for not connected.
+
+=cut
+
+sub connected($)
+{
+	my($self) = @_;
+	
+	return 1 if $self->{'state'} eq 'connected';
+	return 0;
+}
+
+
+
 # -------------------------------------------------------------------------
 # Get a line (blocking)