← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Bio/Map/LinkageMap.pm

  • 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:
Bio/Map/LinkageMap.pm
16
16
 
17
17
    use Bio::Map::LinkageMap;
18
18
        # create a new map
19
 
    my $map = new Bio::Map::LinkageMap(-name => 'Chads Superterriffic Map',
 
19
    my $map = Bio::Map::LinkageMap->new(-name => 'Chads Superterriffic Map',
20
20
                                      -type => 'Linkage',
21
21
                                      -units=> 'cM');
22
22
        # create the location of a marker for that map
23
 
    my $position = new Bio::Map::LinkagePosition( -positions => 1,
 
23
    my $position = Bio::Map::LinkagePosition->new( -positions => 1,
24
24
                -distance => "22.3");
25
25
        # create a marker and place it at that position
26
 
    my $marker = new Bio::Map::Marker::Microsatellite(
 
26
    my $marker = Bio::Map::Marker::Microsatellite->new(
27
27
                        -name => 'SuuuperMarker',
28
28
                        -position => $position);
29
29
        # place that marker on that map
84
84
=head2 new
85
85
 
86
86
 Title   : new
87
 
 Usage   : my $linkage_map = new Bio::Map::LinkageMap();
 
87
 Usage   : my $linkage_map = Bio::Map::LinkageMap->new();
88
88
 Function: Builds a new Bio::Map::LinkageMap object
89
89
 Returns : Bio::Map::LinkageMap
90
90
 Args    : -name    => the name of the map (string) [optional]