File Coverage

blib/lib/VCS/File.pm

Criterion	Covered	Total	%
statement	6	24	25.0
branch			n/a
condition			n/a
subroutine	2	8	25.0
pod	6	6	100.0
total	14	38	36.8

package VCS::File;

my $PREFIX = 'VCS';

use Carp;
use File::Basename;

sub new {
    my $container_classtype = shift;
    $container_classtype =~ s#^$PREFIX##;
    my ($hostname, $impl_class, $path, $query) = VCS->parse_url(@_);
    VCS->class_load($impl_class);
    my $this_class = "$impl_class$container_classtype";
    return $this_class->new(@_);
}

sub init {
    my ($class, $url) = @_;
    my ($hostname, $impl_class, $path, $query) = VCS->parse_url($url);
    my $self = {};
    $self->{URL} = $url;
    $self->{PATH} = $path;
    bless $self, $class;
}

sub url {
    my $self = shift;
    $self->{URL};
}

sub tags {
}

sub versions {
}

sub path {
    my $self = shift;
    $self->{PATH};
}

1;

__END__