sub frob_file {
my $frobbable_filename = shift;
die "Error" if !-e $frobbable_filename or -d $frobbable_filename;
die "Nope!" if not_frobbable($filename);
... frob file ...
}
####
sub zap_the_thing {
my $t = shift;
my @files_to_zap;
if (-d $t) {
zap_dir($t);
}
else {
push @files_to_zap, $t;
}
... yadda ...
zap_files(@files_to_zap);
}
##
##
# ?NEED GOOD NAME?
# If a group (Row, Col, Blk) has only one slot for a particular value,
# solve that cell.
sub solve_v_in_only_one_cell_in_R_C_B {
my ($self, $GEN) = @_;