Mercurial > repos > fgiacomoni > lipidmaps_textsearch

comparison t/lib/lmTest.pm @ 0:e8bd49794291 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Init repository with last lipidmaps_textsearch master version
author fgiacomoni
date Tue, 11 Apr 2017 03:47:06 -0400
parents
children 1276908e8fc4
comparison
equal deleted inserted replaced
-1:000000000000 0:e8bd49794291
1 package lib::lmTest ;
2
3 use diagnostics; # this gives you more debugging information
4 use warnings; # this warns you of bad practices
5 use strict; # this prevents silly errors
6 use Exporter ;
7 use Carp ;
8
9 use Data::Dumper ;
10
11 our $VERSION = "1.0";
12 our @ISA = qw(Exporter);
13 our @EXPORT = qw( build_lm_mass_queryTest round_numsTest );
14 our %EXPORT_TAGS = ( ALL => [qw( build_lm_mass_queryTest round_numsTest )] );
15
16 use lib '/Users/fgiacomoni/Inra/labs/perl/galaxy_tools/lipidmaps' ;
17 use lib::lipidmaps qw( :ALL ) ;
18 use lib::operations qw( :ALL ) ;
19
20 sub build_lm_mass_queryTest {
21
22 my ( $delta, $selected_cat, $selected_cl, $selected_subcl ) = @_ ;
23 my ( $cat, $cl, $subcl ) = (undef, undef, undef) ;
24 my $url = 'http://www.lipidmaps.org/data/structure/LMSDSearch.php?Mode=ProcessTextSearch&OutputColumnHeader=No&OutputMode=File&OutputType=TSV' ;
25
26 if ( ( defined $selected_subcl) or ( defined $selected_cl ) or ( defined $selected_cat ) ) {
27 if ( ( $selected_cat !~ /^NA/ ) ) { ( $cat ) = ( \$selected_cat ) ; }
28 if ( ( $selected_cl !~ /^NA(.*)/ ) ) { ( $cl ) = ( \$selected_cl ) ; }
29 if ( ( $selected_subcl !~ /^NA(.*)/ ) ) { ( $subcl ) = ( \$selected_subcl ) ; }
30 }
31 else { croak "No selected category or classification ids list\n" ; }
32
33
34 my $olm = lib::lipidmaps->new() ;
35 my $ref_url = $olm->build_lm_mass_query(\$url, \$delta, $cat, $cl, $subcl) ;
36 my $complete_url = $$ref_url ;
37 # print $complete_url ;
38 return ($complete_url) ;
39 }
40
41 ## SUB TEST for
42 sub round_numsTest {
43 # get values
44 my ( $numbers, $decimal ) = @_;
45
46 my $oround = lib::operations->new() ;
47 my $rounds = $oround->round_nums($numbers, $decimal) ;
48
49 return($rounds) ;
50 }
51 ## End SUB
52
53
54 1 ;