view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

		prereqs      => {
			runtime    => {
				recommends => { # "strongly encouraged and should be satisfied except in resource constrained environments"
				},
				suggests   => { # "optional, but are suggested for enhanced operation"
				},
			},
		},
	},
	EXE_FILES => [
		( $] ge '5.008' ? 'bin/badge' : () ),
	],
	CONFIGURE_REQUIRES => {
		'ExtUtils::MakeMaker'    => '6.64',
		'Imager'                 => '1.000',
	},
	PREREQ_PM      => {
		# CPAN
		'Imager'                 => '1.000',
		'XML::LibXML'            => '2.0122',
		# Perl core modules

t/badge-simple.t  view on Meta::CPAN

{
	my $exp = XML::LibXML->load_xml(
		location => catfile($FindBin::Bin, 'foo.svg'),
		no_blanks=>1 );
	my $got = badge( left=>'foo', right=>'bar', color=>'#e542f4', font=>$fontfile );
	is_svg_similar $got, $exp, 'foo.svg';
}

subtest 'CLI' => sub {
	plan $] ge '5.008' ? ( tests=>2 ) : ( skip_all=>'bin/badge requires perl 5.008' );
	
	my ($tfh, $outfile) = tempfile(UNLINK=>1);
	close $tfh;
	
	my $script = catfile($FindBin::Bin, updir, 'bin', 'badge');
	is system($^X, $script, qw/ --left Hello --right World!
		--color yellow --out /, $outfile, '--font', $fontfile ),
		0, 'bin/badge';
	
	my $exp = XML::LibXML->load_xml(