File Coverage

blib/lib/Digital.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch	1	4	25.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	41	49	83.6

package Digital;
BEGIN {
  $Digital::AUTHORITY = 'cpan:GETTY';
}
# ABSTRACT: Handling conversion of digital values towards physical units
$Digital::VERSION = '0.002';
use strict;
use warnings;
use Package::Stash;
use Module::Runtime qw( use_module );

our %inputs;

sub register_input {
  my ( undef, $input, $input_class ) = @_;
  unless (defined $input_class) {
    $input_class = $input;
    $input = lc($input_class);
    $input =~ s!::!_!g;
    $input =~ s!^digitalx_!!g;
  }
  $inputs{$input} = $input_class;
}

sub input {
  my ( $class, $input, @args ) = @_;
  my $input_class = $inputs{$input};
  return $input_class->input(@args);
}

sub import {
  my ( $class, @args ) = @_;
  my ( $caller ) = caller;
  my $stash = Package::Stash->new($caller);
  my @classes;
  for (@args) { unless (/^-/) {
    push @classes, 'DigitalX::'.$_;
  } }
  for (@classes) {
    use_module($_);
  }
  $stash->add_symbol('&input', sub { return $class->input(@_) });
}

1;

__END__