It'd be easier to write unit tests for this if `SPMA_IMAGEDIR` were a parameter.  The caller would indeed do

```perl
$self->image_create(SPMA_IMAGEDIR);
```