use a direct match instead of smart match (which seems to work); fixes #15

Author: cjfields

lib/Bio/Role/Location.pm6

@@ -12,44 +12,42 @@ role Bio::Role::Location does Bio::Role::Range {
     has Location-Pos-Type $.start-pos-type  is rw = EXACT-POS;
     has Location-Pos-Type $.end-pos-type    is rw = EXACT-POS;
     has Join-Type $.type                    is rw = EXACT;
-    
+
     method max-start {
         $.start + $.start-offset
     }
-    
+
     method min-start {
         $.start
     }
-    
+
     method max-end {
         $.end + $.end-offset
     }
-    
+
     method min-end {
         $.end
     }
-    
+
     # return Bool
     method is-valid returns Bool {
         $.start.defined && $.end.defined
         and
-        $.start-pos-type !~~ AFTER
+        $.start-pos-type != AFTER
         and
-        $.end-pos-type !~~ BEFORE
+        $.end-pos-type != BEFORE
     }
-    
+
     method is-remote returns Bool {
         $!seqid.defined
     }
-    
+
     method is-fuzzy returns Bool {
-        $.type !~~ EXACT
+        $.type != EXACT
         or
-        $.start-pos-type !~~ EXACT-POS
+        $.start-pos-type != EXACT-POS
         or
-        $.end-pos-type !~~ EXACT-POS
+        $.end-pos-type != EXACT-POS
     }
-    
-}
-
 
+}