some fixes for odd currying error

cjfields · Jan 27, 2015 · e8d1634 · e8d1634
1 parent c8ab61a
commit e8d1634
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 7 deletions.
diff --git a/lib/Bio/Role/IO.pm6 b/lib/Bio/Role/IO.pm6
@@ -3,7 +3,7 @@ use v6;
 use Bio::Role::Temp;
 
 role Bio::Role::IO does Bio::Role::Temp {
-    has IO::Handle $.fh handles <get getc eof lines read write seek tell slurp spurt close>;
+    has IO::Handle $.fh handles IO::Handle;
 
     # At the moment we force all IO consumers to initialize-io if they have this
     # simple signature

diff --git a/lib/Bio/Role/SeqStream.pm6 b/lib/Bio/Role/SeqStream.pm6
@@ -1,8 +1,6 @@
 use v6;
 
-use Bio::Role::IO;
-
-role Bio::Role::SeqStream does Bio::Role::IO;
+role Bio::Role::SeqStream;
 
 method next-Seq { ... }
 

diff --git a/lib/Bio/Role/Temp.pm6 b/lib/Bio/Role/Temp.pm6
@@ -10,16 +10,15 @@ has @!tmpdirs;
 my $tmpcounter = 0;
 
 method tmpfile(*%args) {
-
     # local passed arguments should override the global settings, not ignore them
-
     if %args{'unlink'}:!exists {
         %args{'unlink'} = False ;
     }
     tempfile(|%args);
 }
 
-# a hack for temp directories; we need to get a version working for File::Temp
+# a hack for temp directories; a version is working for File::Temp but is stuck
+# in a pull request
 method tmpdir(Bool :$cleanup) {
     $!cleanup-tmpdir = $cleanup if $cleanup;
     my $tdir = $*SPEC.catfile( $*TMPDIR,

diff --git a/lib/Bio/SeqIO.pm6 b/lib/Bio/SeqIO.pm6
@@ -2,9 +2,11 @@ use v6;
 
 use Bio::Role::Pluggable;
 use Bio::Role::RecordFormat;
+use Bio::Role::IO;
 
 class Bio::SeqIO does Bio::Role::Pluggable['SeqIO']
                  does Bio::Role::RecordFormat
+                 does Bio::Role::IO
                  {
 
     has $!plugin handles <next-Seq write-Seq>;