view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

.shopsettings
assets/activate.png
assets/check-syntax-off.png
assets/check-syntax.png
assets/deactivate.png
assets/home.png
assets/languages/liquid-css.lang
assets/languages/liquid.lang
assets/preview.png
assets/pull.png
assets/push.png

shopify-themer.pl  view on Meta::CPAN

	}
	if (!-l "$icon_directory/shopify-icon.png") {
		print "Symlinking icon to directory... ";
		die "Can't symlink, for some reason.\n" if symlink("$dist_directory/shopify-icon.png", "$icon_directory/shopify-icon.png") != 1;
		print "OK.\n";
	}
	print "Done.\n";
	exit(0);
}

my ($settingFile, $manifestFile) = ($settings->{directory} . "/.shopsettings", $settings->{directory} . "/.shopmanifest");
my $filesettings = decode_json(read_file($settingFile)) if (-e $settingFile);
for (keys(%$filesettings)) { $settings->{$_} = $filesettings->{$_} unless defined $settings->{$_}; }
die "Please specify a --url, --apikey xor --email and --password when using for the first time.\n" unless defined $settings->{url} && defined $settings->{password} && (defined $settings->{apikey} xor defined $settings->{email});
my %saveSettings = map {  $_ => $settings->{$_} } grep { $_ ne "directory" } keys(%$settings);
write_file($settingFile, encode_json(\%saveSettings));

my $STC = new WWW::Shopify::Tools::Themer($settings);

use List::Util qw(first);
my $interactive = $action eq "interactive";