ide/bioperl.komodo

   1 # $Id: [[%f]],v 0.01 2007-03-27 12:43:27 heikki Exp $
   2 #
   3 # BioPerl module for [[%ask1:Perl class name]]
   4 #
   5 # Cared for by [[%ask2:Caretaker name]] [[%ask3:Caretaker email]]
   6 #
   7 # Copyright [[%ask2]]
   8 #
   9 # You may distribute this module under the same terms as perl itself
  10 #
  11 # POD documentation - main docs before the code
  12
  13 =head1 NAME
  14
  15 [[%ask1]] - DESCRIPTION of Object
  16
  17 =head1 SYNOPSIS
  18
  19 Give standard usage here
  20
  21 =head1 DESCRIPTION
  22
  23 Describe the object here
  24
  25 =head1 FEEDBACK
  26
  27 =head2 Mailing Lists
  28
  29 User feedback is an integral part of the evolution of this and other
  30 Bioperl modules. Send your comments and suggestions preferably to
  31 the Bioperl mailing list.  Your participation is much appreciated.
  32
  33   bioperl-l@bioperl.org                  - General discussion
  34   http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
  35
  36 =head2 Reporting Bugs
  37
  38 Report bugs to the Bioperl bug tracking system to help us keep track
  39 of the bugs and their resolution. Bug reports can be submitted via
  40 the web:
  41
  42   https://github.com/bioperl/bioperl-live/issues
  43
  44 =head1 AUTHOR - [[%ask2]]
  45
  46   Email [[%ask3]]
  47
  48 Describe contact details here
  49
  50 =head1 CONTRIBUTORS
  51
  52 Additional contributors names and emails here
  53
  54 =head1 APPENDIX
  55
  56 The rest of the documentation details each of the object methods.
  57 Internal methods are usually preceded with a _
  58
  59 =cut
  60
  61 # Let the code begin...
  62
  63 package [[%ask1]];
  64
  65 use strict;
  66
  67 # Object preamble - inherits from Bio::Root::Root
  68
  69 use base qw(Bio::Root::Root);
  70
  71 =head2 new
  72
  73  Title   : new
  74  Usage   : my $obj = new
  75  Function: Builds a new [[%ask1]] object
  76  Returns : an instance of [[%ask1]]
  77  Args    :
  78
  79 =cut
  80
  81 sub new {
  82         my($class,@args) = @_;
  83         my $self = $class->SUPER::new(@args);
  84         return $self;
  85 }
  86
  87 1;