File Coverage

blib/lib/PJVM/ClassLoader.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	9	12	75.0
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	63	69	91.3

package PJVM::ClassLoader;

use strict;
use warnings;

use File::Spec;
use File::Slurp qw(slurp);

use IO::Scalar;

use PJVM::Class;

our @ISA = qw(Exporter);

use Object::Tiny qw(
    classpath
);

sub new {
    my ($pkg, $args) = @_;

    $args = {} unless ref $args eq "HASH";

    my $classpath;
    if ($args->{classpath}) {
        die "argument 'classpath' must be an array reference" unless ref $args->{classpath} eq "ARRAY";
        $classpath = $args->{classpath};
    }

    my $self = bless {
        classpath => $classpath,
    }, $pkg;

    return $self;
}

sub load_class {
    my ($self, $fqcn) = @_;

    # Find the class to load
    my $path;
    for my $cp (@{$self->classpath}) {
        my $pt = File::Spec->catfile($cp, "${fqcn}.class");
        if (-e $pt) {
            $path = $pt;
            last;
        }
    }

    die "Can't find '${fqcn}.class' in my classpath" unless $path;

    open(my $io, "<:raw", $path) || die $!;
    my $class = $self->read_class($io);
    close($io);

    return $class;
}

sub read_class {
    my ($self, $io) = @_;
    return PJVM::Class->new_from_io($io);
}

1;
__END__