jreisinger · July 16, 2017 19:10
diff --git a/error_indications.pl b/error_indications.pl
 #!/usr/bin/perl
 use v5.14;
 use warnings;

 my %funcs = (
    suberr => sub { return },
    subok  => sub { return 1 },
 );

 for ( keys %funcs ) {
    say join ": ", $_, $funcs{$_}->() ? "ok" : "error";
 }
	#!/usr/bin/perl
	use v5.14;
	use warnings;

	my %funcs = (
	suberr => sub { return },
	subok => sub { return 1 },
	);

	for ( keys %funcs ) {
	say join ": ", $_, $funcs{$_}->() ? "ok" : "error";
	}