Microarray

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    VERSION_FROM      => 'lib/Microarray.pm',
    PREREQ_PM         => {  Image::ExifTool => 6.66, 
    						GD => 2.32,
							FileHandle => 2.01,
							File::Slurp => 9999.12,
							File::Basename => 2.73,
							Module::List => 0.001,
							Statistics::Descriptive => 2.6,
							Test::More => 0.62,
							Test::Group => 0.07,
							Test::Differences => 0.47,
							Test::Deep => 0.096,
							Test::Image::GD => 0.03
    					},
    ($] >= 5.005 ? 
      (AUTHOR         => 'Christopher Jones <c.jones@ucl.ac.uk>') : ()),
);

README  view on Meta::CPAN

  GD
  FileHandle
  File::Slurp
  File::Basename
  Module::List

The test scripts accompanying the modules require the following modules and libraries:

  Test::More
  Test::Group
  Test::Differences
  Test::Deep
  Test::Image::GD

COPYRIGHT AND LICENCE

Copyright (C) 2008 by Christopher Jones, UCL EGA Institute for Women's Health, University College London

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself

t/Microarray-File-Data-BlueFuse.t  view on Meta::CPAN

#! /usr/bin/perl -w

use strict;

use FindBin;
use Test::More tests=>7;
use Test::Group;
use Test::Differences;
use Test::Deep;

BEGIN {
	use_ok('Microarray::File::Data::BlueFuse');
}

my ($oFile,$oSpot);

my $file = $FindBin::Bin.'/../test_files/bluefuse_output.xls';
begin_skipping_tests "The test-file 'bluefuse_output.xls' could not be found" unless (-e $file);  

t/Microarray-File-Data-Quantarray.t  view on Meta::CPAN

#! /usr/bin/perl -w

use strict;

use FindBin;
use Test::Harness;
use Test::More tests=>7;
use Test::Group;
use Test::Differences;
use Test::Deep;

BEGIN {
	use_ok('Microarray::File::Data::Quantarray');
}

my ($oFile,$oImage_File,$oImage_File2);

my $data_file = $FindBin::Bin.'/../test_files/quantarray.csv';
begin_skipping_tests "The test-file 'quantarray.csv' could not be found" unless (-e $data_file);  

t/Microarray-File-Data.t  view on Meta::CPAN

#! /usr/bin/perl -w

use strict;

use FindBin;
use Test::Harness;
use Test::More tests=>7;
use Test::Group;
use Test::Differences;
use Test::Deep;

BEGIN {
	use_ok('Microarray::File::Data');
}

my ($oFile1,$oFile2,$oSpot1,$oSpot2,$oSpot3);

my $data_file1 = $FindBin::Bin.'/../test_files/bluefuse_output.xls';
begin_skipping_tests "The test-file 'bluefuse_output.xls' could not be found" unless (-e $data_file1);  

t/Microarray-Reporter.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use FindBin;
use Test::More tests=>28;
use Test::Differences;

#1
BEGIN {
	use_ok('Microarray::Reporter');
	use_ok('Microarray::Spot');
}

my ($oReporter);

# set qc defaults

t/Microarray-Spot.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use FindBin;
use Test::More tests=>5;
use Test::Group;
use Test::Differences;
use Test::Deep;

#1
BEGIN {
	use_ok('Microarray::Spot');
}

my ($oSpot);

#2

t/Microarray.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use FindBin;
use Test::More tests=>13;
use Test::Group;
use Test::Differences;
use Test::Deep;
use Test::Image::GD;

#1,2
BEGIN {
	use_ok('Microarray');
	use_ok('Microarray::File::Data');
}

my ($oArray,$oReporter,$oReporter1,$oReporter2,$oReporter3,$oReporter4,$oReporter5,$aReporter_Objects,$aReporter_Names,$hReporters,$file,$aSpots);