File Coverage

blib/lib/SVN/Class/Dir.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	6	0.0
condition	0	4	0.0
subroutine	4	6	66.6
pod	2	2	100.0
total	18	39	46.1

package SVN::Class::Dir;
use strict;
use warnings;
use base qw( Path::Class::Dir SVN::Class );
use SVN::Class::File;

our $VERSION = '0.17';

# override some Path::Class stuff to return SVN::Class objects instead
sub file {
    local $Path::Class::Foreign = $_[0]->{file_spec_class}
        if $_[0]->{file_spec_class};
    return SVN::Class::File->new(@_);
}

sub new {
    my $self  = Path::Class::Entity::new(shift);
    my $s     = $self->_spec;

    my $first = (
          @_ == 0 ? $s->curdir
        : $_[0] eq '' ? ( shift, $s->rootdir )
        : shift()
    );

    ( $self->{volume}, my $dirs )
        = $s->splitpath( $s->canonpath($first) || '', 1 );
    $self->{dirs} = [ $s->splitdir( $s->catdir( $dirs, @_ ) ) ];
    $self->{svn} ||= 'svn';
    return $self;
}

1;

__END__