Add folder_name function, to return the last component of a path

use warnings;

use Cwd;

use File::Basename;

# This is a support script, which is loaded by the various "bbox-workflow"

}

# folder_name: Given a path, get the name of the last component.

# $path: The path.

sub folder_name {

    my ($path) = @_;

    $path = Cwd::abs_path($path);

    return File::Basename::basename($path);

}

# End on a true value.

1;