sub File::Spec::dirname {
    my $self = shift;
    return $self->catpath( ( $self->splitpath(shift) )[ 0, 1 ] );
}

sub File::Spec::basename {
    my $self = shift;
    my $name = shift;
    return ($self->fileparse($name, map("\Q$_\E",@_)))[0];
}

sub File::Spec::fileparse {
    my $self = shift;
    my( $suffix, $path, $name ) = $self->splitpath(shift);
    $path = $self->catpath( $suffix, $path, '' );

    for my $s(@_){
        $self =~ s/($s)$//i and last;
    }

    $suffix = $1 ? $1 : undef;
    wantarray ? ( $name, $path, $suffix ) : $name;
}
[download]

This only hides File::Spec underneath the covers. I expect I'd still encounter the same problems as I did before, as it will still stringify to the OS you're on. As I use Windows mostly, it doesn't integrate with Find::Find and others without some meddling.

I have most problems with code written by others who aren't aware of the problems. Whether they use File::Spec or Path::Class, I don't see any difference between the return values being Windows style and then breaking when used directly in Find::Find or File::Basename. For them to work correctly you'll need to have:

$file->as_foreign('Unix')
[download]

all over the place, which kind of defeats the object of using Path::Class in the first place :(

--
Barbie | Birmingham Perl Mongers user group | http://birmingham.pm.org/