File Coverage

blib/lib/SVN/Class/File.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	6	0.0
condition	0	2	0.0
subroutine	4	6	66.6
pod	2	2	100.0
total	18	41	43.9

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

our $VERSION = '0.17';

# override Path::Class stuff to use SVN::Class instead
sub new {
    my $self = Path::Class::Entity::new(shift);
    my $file = pop();
    my @dirs = @_;

    my ( $volume, $dirs, $base ) = $self->_spec->splitpath($file);

    if ( length $dirs ) {
        push @dirs, $self->_spec->catpath( $volume, $dirs, '' );
    }

    $self->{dir} = @dirs ? SVN::Class::Dir->new(@dirs) : undef;
    $self->{file} = $base;
    $self->{svn} ||= 'svn';

    return $self;
}

sub dir {
    my $self = shift;
    return $self->{dir} if defined $self->{dir};
    return SVN::Class::Dir->new( $self->_spec->curdir );
}

1;

__END__