sub ACTION_distdir { my $self = shift; $self->SUPER::ACTION_distdir; # do default stuff ... do tabs2spaces to files in $self->dist_dir; ... }