From 6530a6626a1a1931ee6847a6d38d009206e92954 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 9 Aug 2010 18:38:39 +0200
Subject: [PATCH] use enter and leave to display tags

---
 scripts/scan.pl | 35 +++++++++++++++++++++++++----------
 1 file changed, 25 insertions(+), 10 deletions(-)

diff --git a/scripts/scan.pl b/scripts/scan.pl
index f4ec02a..8a460b2 100755
--- a/scripts/scan.pl
+++ b/scripts/scan.pl
@@ -22,15 +22,30 @@ GetOptions(
 my $rfid = RFID::Biblio::Reader->new( $reader );
 $RFID::Biblio::debug = $debug;
 
+sub tag {
+	my $tag = shift;
+	return $tag
+		, " AFI: "
+		, uc unpack('H2', $rfid->afi($tag))
+		, " "
+		, dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )
+		, $/
+		;
+}
+
 do {
-	my @visible = $rfid->tags;
-	foreach my $tag ( @visible ) {
-		print $tag
-			, " AFI: "
-			, uc unpack('H2', $rfid->afi($tag))
-			, " "
-			, dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )
-			, $/
-			;
-	}
+	my @visible = $rfid->tags(
+		enter => sub {
+			my $tag = shift;
+			print "enter $tag ", tag($tag);
+
+		},
+		leave => sub {
+			my $tag = shift;
+			print "leave $tag ", tag($tag);
+		},
+	);
+
+	warn scalar localtime, " visible: ",join(' ',@visible),"\n";
+
 } while $loop;
-- 
2.20.1