{
    package Path::Class::Dir;
    sub basename { $_[0]->dir_list(-1) }
}