File Coverage

blib/lib/Harriet.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	8	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	40	30.0

package Harriet;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.04";

sub new {
    my ($class, $dir) = @_;
    bless {dir => $dir}, $class;
}

sub load {
    my ($self, $name) = @_;
    return if $self->{loaded}->{$name}++;

    my $file = "$self->{dir}/${name}.pl";

    my $retval = do $file;
    if ($@) {
        die "[Harriet] Couldn't parse $file: $@\n";
    }
}

sub load_all {
    my ($self) = @_;

    opendir my $dh, $self->{dir}
        or die "[Harriet] Cannot open '$self->{dir}' as directory: $!\n";
    while (my $file = readdir($dh)) {
        next unless $file =~ /^(.*)\.pl$/;
        my $name = $1;
        $self->load($name);
    }
}

1;
__END__