update-pod.pl

#!/usr/bin/env perl
use 5.30.0;
use warnings;
use Cwd 'getcwd';
use File::Basename;

my $dir = getcwd;

my ($name) = File::Basename::fileparse($dir);


sub update {
	system 'pod install';
	exit;
}


if ($name eq 'ios') {
	update;
}

if (-d "$dir/ios") {
	chdir 'ios';
	update;
}

print STDERR <<END;
The folder "$dir" is not a project ios folder, nor does it have one as its immediate child! 
Are you sure you're in the right place?"
END