File Coverage

lib/Ubic/ServiceLoader/Default.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	5	10	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	40	48	83.3

package Ubic::ServiceLoader::Default;
$Ubic::ServiceLoader::Default::VERSION = '1.58_01'; # TRIAL
# ABSTRACT: default service loader

use strict;
use warnings;

use parent qw( Ubic::ServiceLoader::Base );


use Scalar::Util qw(blessed);

my $eval_id = 1;

sub new {
    return bless {} => shift;
}

sub load {
    my $self = shift;
    my ($file) = @_;

    open my $fh, '<', $file or die "Can't open $file: $!";
    my $content = do { local $/; <$fh> };
    close $fh or die "Can't close $file: $!";

    $content = "# line 1 $file\n$content";
    $content = "package UbicService".($eval_id++).";\n# line 1 $file\n$content";
    my $service = eval $content;
    if ($@) {
        die "Failed to eval '$file': $@";
    }
    unless (blessed $service) {
        die "$file doesn't contain any service";
    }
    unless ($service->isa('Ubic::Service')) {
        die "$file returned $service instead of Ubic::Service";
    }
    return $service;
}

1;

__END__