File Coverage

blib/lib/VCS/Hms/Dir.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	32	43.7

package VCS::Hms::Dir;

use VCS::Dir;

@ISA = qw(VCS::Hms VCS::Dir);

use strict;
use Carp;

sub new {
    my($class, $url) = @_;
    my $self = $class->init($url);
    my $path = $self->path;
    die "$class->new: $path not an HMS directory: $!\n"
        if system("fls $path >/dev/null") != 0;
    $self;
}

sub content {
    my $self = shift;
    my @result;
    foreach (split "\n",`fll -l $self->{NAME}`) {
        my ($mode,$lock,$size,$month,$date,$h_y,$name,$locked_rev) =
            split /\s+/;
        my $new_class = ($mode =~ /^d/) ? 'VCS::Hms::Dir' : 'VCS::Hms::File';
        push @result, $new_class->new($self->url . $name);
    }
    return @result;
}

1;