← Back to branch summary

~ubuntu-branches/ubuntu/saucy/bioperl/saucy-proposed

« back to all changes in this revision

Viewing changes to examples/searchio/custom_writer.pl

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2009-03-10 07:19:11 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090310071911-fukqzw54pyb1f0bd
Tags: 1.6.0-2
https://launchpad.net/bugs/324001
* Removed patch system (not used):
  - removed instuctions in debian/rules;
  - removed quilt from Build-Depends in debian/control.
* Re-enabled tests:
  - uncommented test command in debian/rules;
  - uncommented previously missing build-dependencies in debian/control.
  - Re-enabled tests and uncommented build-dependencies accordingly.
* Removed libmodule-build-perl and libtest-harness-perl from
  Build-Depends-Indep (provided by perl-modules).
* Better cleaning of empty directories using find -type d -empty -delete
  instead of rmdir in debian/rules (LP: #324001).

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.3 2004/02/21 10:50:34 sac Exp $
 
33
# Revision: $Id: custom_writer.pl 15087 2008-12-04 02:48:00Z bosborne $
34
34
 
35
35
package MyBlastWriter;
36
36
 
39
39
use Bio::Root::Root;
40
40
use Bio::SearchIO::SearchWriterI;
41
41
 
42
 
use vars qw( @ISA );
43
 
@ISA = qw( Bio::Root::Root Bio::SearchIO::SearchWriterI );
 
42
use base qw( Bio::Root::Root Bio::SearchIO::SearchWriterI );
44
43
 
45
44
sub to_string {
46
45
    my ($self, $result, @args) = @_;