| 
														
															@@ -7,9 +7,6 @@ use SimplyGit::Shellex qw(shellex findBin); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 use Exporter qw(import); 
														 | 
														
														 | 
														
															 use Exporter qw(import); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 our @EXPORT_OK = qw(readConfig getStatus returnState addFiles commitChanges pushChanges stashAndReset resetFromUpstream updateGitIgnore appendRepoUserConfig); 
														 | 
														
														 | 
														
															 our @EXPORT_OK = qw(readConfig getStatus returnState addFiles commitChanges pushChanges stashAndReset resetFromUpstream updateGitIgnore appendRepoUserConfig); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															-# TODO: Handle "optional" passing of logger object 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-# Need to identify which subs are called before the logger object is initialized ( if any ) 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-# and then required the logger object arg for all who don't fit that usecase 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 # TODO: Add info/debug logging for all subroutines 
														 | 
														
														 | 
														
															 # TODO: Add info/debug logging for all subroutines 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															 sub checkPath($$) { 
														 | 
														
														 | 
														
															 sub checkPath($$) { 
														 | 
													
												
											
										
											
												
													
														 | 
														
															@@ -62,7 +59,6 @@ sub readConfig($$) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	# Tag each line with it's heading 
														 | 
														
														 | 
														
															 	# Tag each line with it's heading 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	# Only way I could think of that worked to solve how this 
														 | 
														
														 | 
														
															 	# Only way I could think of that worked to solve how this 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	# There are almost certainly better ways 
														 | 
														
														 | 
														
															 	# There are almost certainly better ways 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-	# TODO 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	my @taggedLines; 
														 | 
														
														 | 
														
															 	my @taggedLines; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	my $tag = "NULLTAG"; 
														 | 
														
														 | 
														
															 	my $tag = "NULLTAG"; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	foreach my $line ( @configLines ) { 
														 | 
														
														 | 
														
															 	foreach my $line ( @configLines ) { 
														 | 
													
												
											
										
											
												
													
														 | 
														
															@@ -154,8 +150,6 @@ sub addFiles($$) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															 } 
														 | 
														
														 | 
														
															 } 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															-# TODO: Possibly worth returning output for commitChanges(), pushChanges(), stashAndReset, even if I'm not using it right now 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															- 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 sub commitChanges($$) { 
														 | 
														
														 | 
														
															 sub commitChanges($$) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	my $commitMsg = shift; 
														 | 
														
														 | 
														
															 	my $commitMsg = shift; 
														 | 
													
												
											
										
											
												
													
														 | 
														
															@@ -197,7 +191,6 @@ sub stashAndReset($) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	my $gitCmd = findBin("git",$logger); 
														 | 
														
														 | 
														
															 	my $gitCmd = findBin("git",$logger); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	shellex("$gitCmd stash",$logger); 
														 | 
														
														 | 
														
															 	shellex("$gitCmd stash",$logger); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	dropStash($logger); 
														 | 
														
														 | 
														
															 	dropStash($logger); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-	# TODO: Depending on use case need to do more here 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	shellex("$gitCmd rebase",$logger); 
														 | 
														
														 | 
														
															 	shellex("$gitCmd rebase",$logger); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 } 
														 | 
														
														 | 
														
															 } 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
										
											
												
													
														 | 
														
															@@ -234,7 +227,6 @@ sub updateGitIgnore($$$) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 		my $catCmd = findBin("cat",$logger); 
														 | 
														
														 | 
														
															 		my $catCmd = findBin("cat",$logger); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 		my @ignoreLines = split("\n",shellex("$catCmd $filename",$logger)); 
														 | 
														
														 | 
														
															 		my @ignoreLines = split("\n",shellex("$catCmd $filename",$logger)); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 		if ( ! grep( /^$ignoreValue$/, @ignoreLines ) ) { 
														 | 
														
														 | 
														
															 		if ( ! grep( /^$ignoreValue$/, @ignoreLines ) ) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-			# TODO: What if logger object is not passed in? 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			open(my $fh, ">>", $filename) or die $logger->error("Couldn't open $filename, exiting..."); 
														 | 
														
														 | 
														
															 			open(my $fh, ">>", $filename) or die $logger->error("Couldn't open $filename, exiting..."); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			chomp $ignoreValue; 
														 | 
														
														 | 
														
															 			chomp $ignoreValue; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			print $fh "$ignoreValue\n"; 
														 | 
														
														 | 
														
															 			print $fh "$ignoreValue\n"; 
														 |