File Coverage

blib/lib/VCS/Version.pm

Criterion	Covered	Total	%
statement	0	25	0.0
branch			n/a
condition			n/a
subroutine	0	11	0.0
pod	11	11	100.0
total	11	47	23.4

package VCS::Version;

my $PREFIX = 'VCS';

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 @path = split '/', $path;
    my $version = pop @path;
    my $filename = join '/', @path;
    my $self = {
        URL => $url,
        VERSION => $version,
        PATH => $filename,
    };
    bless $self, $class;
}

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

sub version {
    my $self = shift;
    $self->{VERSION};
}

sub tags {
}

sub text {
}

sub diff {
}

sub author {
}

sub date {
}

sub reason {
}

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

1;

__END__