new returns object only on succeful init

diff --git a/lib/RFID/Biblio.pm b/lib/RFID/Biblio.pm
index 29c06a9..f8c7b35 100644 (file)
--- a/lib/RFID/Biblio.pm
+++ b/lib/RFID/Biblio.pm
@@ -51,9 +51,7 @@ sub new {
 
        $self->port;
 
-       $self->init;
-
-       return $self;
+       $self->init && return $self;
 }
 
 =head2 port