diff --git a/tests/libperl/Ham/APRS/IS.pm b/tests/libperl/Ham/APRS/IS.pm
index b70e085..184e754 100644
--- a/tests/libperl/Ham/APRS/IS.pm
+++ b/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)