view release on metacpan or  search on metacpan

lib/Acme/DotDotGone.pm  view on Meta::CPAN

			? sub { 
				$_[1] = $dots{toDots}($_[0]);
				$_[0], $_[1], $_[1]; 
			}
			: sub { 
				$_[1] = $dots{fromDots}($_[0]); 
				$_[1], $_[0], $_[1]; 
			}
		: ($_[2] =~ m/[a-zA-Z]/)
			? sub { 
				undef			
			}
			: sub { 
				$_[1] = $dots{fromDots}($_[0]);
				$_[1], $_[0];
			}
	)->($_[2]);

	if ($_[4]) {
		open FH, ">$0" or print "Cannot encode. '$0'\n" and exit;
		print FH "use Acme::DotDotGone;\n";