← Back to branch summary

~ubuntu-branches/ubuntu/raring/bioperl/raring

« back to all changes in this revision

Viewing changes to examples/searchio/custom_writer.pl

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2008-03-18 14:44:57 UTC
  • mfrom: (4 hardy)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20080318144457-1jjoztrvqwf0gruk
http://bugs.debian.org/448890
* debian/control:
  - Removed MIA Matt Hope (dopey) from the Uploaders field.
    Thank you for your work, Matt. I hope you are doing well.
  - Downgraded some recommended package to the 'Suggests' priority,
    according to the following discussion on Upstream's mail list.
    http://bioperl.org/pipermail/bioperl-l/2008-March/027379.html
    (Closes: #448890)
* debian/copyright converted to machine-readable format.

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/searchio/custom_writer.pl
30
30
#   STDERR: Progress info.
31
31
#
32
32
# Author: Steve Chervitz <sac@bioperl.org>
33
 
# Revision: $Id: custom_writer.pl,v 1.2 2003/06/04 02:26:48 sac Exp $
 
33
# Revision: $Id: custom_writer.pl,v 1.3 2004/02/21 10:50:34 sac Exp $
34
34
 
35
35
package MyBlastWriter;
36
36
 
87
87
 
88
88
select STDOUT; $|=1; 
89
89
 
90
 
my $in     = Bio::SearchIO->new( -format => 'blast', -signif => 0.1 );
 
90
my $in     = Bio::SearchIO->new( -format => 'blast', 
 
91
                                 -fh => \*ARGV,
 
92
                                 -signif => 0.1 );
91
93
my $writer = MyBlastWriter->new();
92
94
my $out    = Bio::SearchIO->new( -format => 'blast',
93
95
                                 -writer => $writer,