From fdd2900378d80f59f50ca07307276fbd7271d484 Mon Sep 17 00:00:00 2001
From: Heikki Hannikainen <hessu@hes.iki.fi>
Date: Thu, 6 May 2010 05:08:39 +0000
Subject: [PATCH] + 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 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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)