view release on metacpan or  search on metacpan

lib/API/Octopart.pm  view on Meta::CPAN

	{
		$r = $r->{part};
		my %part;

		$part{mfg} = $r->{manufacturer}{name};

		if (defined $r->{specs})
		{
			$part{specs} = {
				# Try to map first by shortname, then by unit, then by value if
				# the former are undefined:
				map { 
					defined($_->{attribute}{shortname}) 
						? ($_->{attribute}{shortname} => $_->{value} . "$_->{units}")
						: (
							$_->{units} 
								? ($_->{units} => $_->{value})
								: ($_->{value} => 'true')
						)
				} @{ $r->{specs} }
			},

remake.sh  view on Meta::CPAN

#!/bin/sh

set -e

[ -e Makefile ] && make distclean || true

perl Makefile.PL

find lib -name '*.pm' | xargs scandeps.pl -R | \
  perl -MJSON -le '
    undef $/;
    %d=eval(<STDIN>);
    %i=do("./ignoredeps");
    $j=JSON::from_json(`cat MYMETA.json`);
    foreach (sort keys(%d)) {
	    $missing .= "'\''$_'\'' => '\''0'\'',\t# $d{$_}\n" if !defined($j->{prereqs}{runtime}{requires}{$_}) && !defined($i{$_})
    }

    if ($missing) {
	    print "\nMissing deps:\n(\n$missing)\n" ;