File Coverage

blib/lib/Medical/Growth.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	38	38	100.0

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

package Medical::Growth;

our ($VERSION) = '1.00';

use Module::Runtime;
use Module::Pluggable
  search_path => 'Medical::Growth',
  require     => 0,
  only        => qr/^Medical::Growth::\w+$/,
  except      => 'Medical::Growth::Base';

sub measure_class_for {
    my $self = shift;
    my (%criteria) = @_ == 1 ? %{ $_[0] } : @_;
    return unless $criteria{system};
    my $class = $criteria{system};
    $class = "Medical::Growth::$class"
      unless $class =~ /^Medical::Growth::/;
    Module::Runtime::use_module($class)->measure_class_for(%criteria);
}

sub available_systems {
    shift->plugins;
}

1;

__END__