sub Path::Class::Dir::basename {
    return $self->dir_list(-1);
}