Yet Another CPAN Grep

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/imagemaps.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

my $html_file = "t/data/imagemaps.html";
my $image_ma

\n</html>\n";
		close(HTML);
	
ok (-e $html_file, "$html_file" );
$filesize = -s $html_file;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

my $num_areas = 0;
$num_areas ++ while($image_map

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/borders.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

$svgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/visibility.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

$svgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/heights.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

vgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/colours.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

$svgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/mrna_level.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

vgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/offsets.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

$svgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/labels.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

$svgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/padding.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

vgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/misc2.t ( view source; MetaCPAN )


print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::S

vgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/invalid.t ( view source; MetaCPAN )

>$imgfile") or die "could not write to file $imgfile";
print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

Bio-Graphics-Glyph-decorated_gene ( C/CH/CHRISFR/Bio-Graphics-Glyph-decorated_gene-0.03.tar.gz, CHRISFR, 2012; MetaCPAN )

Bio-Graphics-Glyph-decorated_gene/t/misc1.t ( view source; MetaCPAN )

n(IMG,">$imgfile") or die "could not write to file $imgfile";
print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');